Board logo

標題: 請問儲存格相對應問題... [打印本頁]
作者: steven    時間: 2010-6-15 21:09     標題: 請問儲存格相對應問題...

請問如範例中..
請問如C1=B2…D1=B3…E1=B4                                       

當我於C1到CZ1欄位輸入文字而B2到B99會相對應要如何寫入VBA中                                       
請各位指導謝謝...
作者: Hsieh    時間: 2010-6-15 21:54

回復 1# steven
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Application.EnableEvents = False
  3. ar = Range([C1], [IV1].End(xlToLeft)).Value
  4. [B2].Resize(UBound(ar, 2), 1) = Application.Transpose(ar)
  5. Application.EnableEvents = True
  6. End Sub
複製代碼
作者: GBKEE    時間: 2010-6-16 06:46

回復 1# steven
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     Application.EnableEvents = False
  3.     If Not Intersect(Target, Range([C1], [CZ1])) Is Nothing Then [B2].Offset(Target.Column - 3) = Target
  4.     Application.EnableEvents = True
  5. End Sub
複製代碼
作者: steven    時間: 2010-6-19 15:53

感謝二位版大熱心指導小弟謝謝



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)