返回列表下一主題上一主題發帖

[發問] 請問VBA 條件判斷式的使用方法?使用方法

john2006168

　暱稱: jjjohn

中學生 Rank: 2

帖子: 178
主題: 65
精華: 0
積分: 252
點名: 0
作業系統: WINDOW7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2010-5-4
最後登錄: 2024-2-1

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-3-23 22:34 | 顯示全部帖子

[發問] 請問VBA 條件判斷式的使用方法?使用方法

這個是在論壇學習到的程式,但是如果A2資料錯誤,程式就不能執行,請問要怎麼修改?

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rTar As Range ' 填資料標的儲存格A欄

  With Target
If .Address = "$A$2" Then
   lRow = dShi(.Text)
   Application.EnableEvents = False ' 變更資料中,關閉觸發Change程序'dShi(CStr(.Cells(lRow, 8))) = lRo
      .Offset(, 1) = shDat.Cells(lRow, 2) ' B2
      .Offset(, 2) = shDat.Cells(lRow, 9) ' c2
      .Offset(, 3) = shDat.Cells(lRow, 8)
      .Offset(, 4) = shDat.Cells(lRow, 6)
      .Offset(, 5) = shDat.Cells(lRow, 7)
      .Offset(, 6) = shDat.Cells(lRow, 1)
      .Offset(, 7) = shDat.Cells(lRow, 16)
      .Offset(, 8) = shDat.Cells(lRow, 17)
      .Offset(, 9) = shDat.Cells(lRow, 18)
      .Offset(, 10) = shDat.Cells(lRow, 19)
      .Offset(, 11) = shDat.Cells(lRow, 20)

      lShrRow = lShrRow + 1
      Set rTar = shShr.Cells(lShrRow, 1) ' [A末筆欄數]

      ' 其餘請自行調整填入


   Application.EnableEvents = True ' 資料變更完畢,恢復可觸發Change程序
End If
  End With
End Sub

test05.png (229.65 KB)