کانتر

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • hamid.mcse2021

    • 2021/09/05
    • 16
    • 34.00
    #1

    پرسش کانتر

    سلام یک دکمه بسازم روش میزنم کانتر بندازه کی میدونه مهندسین؟
    برچسب ها: هیچ‌کدام
    • حسام بحرانی

      • 2013/09/29
      • 2065
      • 72.00
      #2
      Counter in excel

      نوشته اصلی توسط hamid.mcse2021
      سلام یک دکمه بسازم روش میزنم کانتر بندازه کی میدونه مهندسین؟
      سلام
      ببینید این فایل کمکتون می کنه؟
      موفق باشید.
      [CENTER][B][SIZE=5][COLOR=#006600][FONT=georgia][COLOR=#800000]!With [/COLOR][/FONT][/COLOR][COLOR=#006600][FONT=georgia]God [/FONT][/COLOR][COLOR=#006600][FONT=georgia][COLOR=#800000]all [/COLOR][/FONT][/COLOR][COLOR=#800000][FONT=georgia]things are [/FONT][/COLOR][COLOR=#006600][FONT=georgia]possible[/FONT][/COLOR][/SIZE][/B][B][FONT=Tahoma]
      [/FONT][/B][/CENTER]
      [CENTER][B][FONT=Tahoma] [IMG]http://forum.exceliran.com/attachment.php?attachmentid=5334&d=1419428336[/IMG]
      [/FONT][/B][SIZE=1][FONT=Tahoma][B][FONT=Tahoma]
      [/FONT][/B][/FONT][/SIZE]
      [/CENTER]

        کامنت

        • حسام بحرانی

          • 2013/09/29
          • 2065
          • 72.00
          #3
          Vba

          از طریق کدهای VBA نیز می تونید برای اعمال دستور در سلول مورد نظر ( A1 ) استفاده کنید:
          کد PHP:
          Option Explicit

          Sub RoundedRectangle1_Click          ()
                        Dim countCell As Range
              Set countCell           = ActiveSheet.Range("a1")
                        countCell = countCell + 1
          End Sub

          Sub RoundedRectangle2_Click          ()
                        Dim countCell As Range
              Set countCell           = ActiveSheet.Range("a1")
                        countCell = 0
          End Sub
          Sub RoundedRectangle3_Click          ()
                        Dim countCell As Range
              Set countCell           = ActiveSheet.Range("a1")
                        countCell = countCell - 1
          End Sub 
          ( برای ورود به محیط           VBA از کلید های Alt & F11 استفاده کنید )
          موفق باشید.
          [CENTER][B][SIZE=5][COLOR=#006600][FONT=georgia][COLOR=#800000]!With [/COLOR][/FONT][/COLOR][COLOR=#006600][FONT=georgia]God [/FONT][/COLOR][COLOR=#006600][FONT=georgia][COLOR=#800000]all [/COLOR][/FONT][/COLOR][COLOR=#800000][FONT=georgia]things are [/FONT][/COLOR][COLOR=#006600][FONT=georgia]possible[/FONT][/COLOR][/SIZE][/B][B][FONT=Tahoma]
          [/FONT][/B][/CENTER]
          [CENTER][B][FONT=Tahoma] [IMG]http://forum.exceliran.com/attachment.php?attachmentid=5334&d=1419428336[/IMG]
          [/FONT][/B][SIZE=1][FONT=Tahoma][B][FONT=Tahoma]
          [/FONT][/B][/FONT][/SIZE]
          [/CENTER]

            کامنت

            قبلی template بعدی
            چند لحظه..