پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 11

موضوع: ایجاد border در اکسل

  1. #1


    آخرین بازدید
    2024/01/12
    تاریخ عضویت
    December 2013
    نوشته ها
    200
    امتیاز
    39
    سپاس
    121
    سپاس شده
    29 در 24 پست
    تعیین سطح نشده است

    ایجاد border در اکسل

    سلام
    من باید چکار کنم تا وقتی در ستون A عددی وارد می کنم سلولهای B تا F حالت Border بگیرند
    با تشکر
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2. سپاس ها (1)


  3.  

  4. #2


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    363
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام
    با سلام دوست عزیز کد زیر خدمت شما

    کد:
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Selection.Column = 1 Then
    m = Target.Row
    
    Range(Cells(m, "B"), Cells(m, "f")).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
    
    
    End If
    
    End Sub
    مهدی کریمی


  5. #3


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,491
    امتیاز
    12379
    سپاس
    8,959
    سپاس شده
    10,650 در 3,761 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط MEYTI نمایش پست ها
    با سلام دوست عزیز کد زیر خدمت شما
    ممنون مهدي جان ولي رو سيستم من جواب نميده. ميشه فايلشو بذاري؟

  6. سپاس ها (1)


  7. #4


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    363
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام
    خدمت شما
    فايل هاي پيوست شده فايل هاي پيوست شده
    مهدی کریمی


  8. #5


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,491
    امتیاز
    12379
    سپاس
    8,959
    سپاس شده
    10,650 در 3,761 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط MEYTI نمایش پست ها
    خدمت شما
    ممنون مهدي جان ولي كار نميكنه كه
    منم يه كد شبيه اين پيدا كرده بودم ولي اونم كار نميكرد. بقيه دوستان لطف كنن چك كنن ببينم مشكل از سيستم منه يا كد

  9. سپاس ها (1)


  10. #6


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    363
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام
    امیر جان مشکلت کجاست؟ ارور میده؟
    ویرایش توسط MEYTI : 2014/01/16 در ساعت 18:44
    مهدی کریمی

  11. سپاس ها (2)


  12. #7


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,491
    امتیاز
    12379
    سپاس
    8,959
    سپاس شده
    10,650 در 3,761 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط MEYTI نمایش پست ها
    امیر جان مشکلت کجاست؟ ارور میده؟
    نه عزيز مشكل اينجاس كه هيچ اتفاق خاصي نميفته.

  13. سپاس ها (1)


  14. #8


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    363
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام
    دروباره چک کن در ستون a هر مقداری بنویسی سطر جلوشو باید خط دار کنه
    دوستان دیگه هم چک کنن
    مهدی کریمی


  15. #9


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,491
    امتیاز
    12379
    سپاس
    8,959
    سپاس شده
    10,650 در 3,761 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط MEYTI نمایش پست ها
    دروباره چک کن در ستون a هر مقداری بنویسی سطر جلوشو باید خط دار کنه
    دوستان دیگه هم چک کنن
    نميدونم مشكل چي بود. سيستم رو ري استارت كردم درست شد
    ممنون مهدي جان

  16. سپاس ها (1)


  17. #10


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,491
    امتیاز
    12379
    سپاس
    8,959
    سپاس شده
    10,650 در 3,761 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط MEYTI نمایش پست ها
    خدمت شما

    مهدي جان زحمت كشيدن و اصل كار رو انجام دادن. منم يه دستكاري كوچولو (البته با اجازه مهدي عزيز) تو فايل كردم وقتي سلول خالي باشه كادر هم جلوش نباشه. شايد كاربرد داشته باشه براتون

    اين كدي كه بايد داخل sheet1 نوشته بشه

    کد:
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Selection.Column = 1 Then
    m = Target.Row
    
    Range(Cells(m, "B"), Cells(m, "f")).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
    End If
    Range("A" & m).Select
    If Target.Value = "" Then Call unboarder(m)
    
    End Sub
    اين هم كدي كه داخل يك ماژول نوشته ميشه

    کد:
    Sub unboarder(m)
        Range(Cells(m, "B"), Cells(m, "f")).Select
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        Selection.Borders(xlEdgeLeft).LineStyle = xlNone
        Selection.Borders(xlEdgeTop).LineStyle = xlNone
        Selection.Borders(xlEdgeBottom).LineStyle = xlNone
        Selection.Borders(xlEdgeRight).LineStyle = xlNone
        Selection.Borders(xlInsideVertical).LineStyle = xlNone
        Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
        Range("A" & m).Select
    End Sub

  18. سپاس ها (3)



صفحه 1 از 2 12 آخرینآخرین

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

ایجاد border در اکسل

بوردر در اکسل چیست

بوردر در اکسل

ايجاد بوردر در اکسل

آموزش border در اکسل

کاربرد xlnone در ویزوال بیسیک؟

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است