Excel VBA 請益 II

AA表單C1為下拉式選單，裡面有三個圖示想做成按鈕，分別對應QQ表單的T1 & T2 & T3資料。
主要是今天想在QQ表單的T1資料，輸入數據，然後只要從AA表單按T1的按鈕，就能直接輸入數據，而不必跳到QQ表單內然後輸入資料。

在此提供檔案。

BTT.rar (26.55 KB)

樓主熱帖

zz0660

中學生 Rank: 2

帖子: 50
主題: 15
精華: 0
積分: 75
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2024-6-14

2^#

發表於 2021-7-28 09:53 | 顯示全部帖子

回復 2# samwang

程式可以，但今天想把按鈕換成下拉式選單的方式呈現，如C1 & D1 個別為下拉式選單。

請問該如何修改呢?，謝謝!

TOP

zz0660

中學生 Rank: 2

帖子: 50
主題: 15
精華: 0
積分: 75
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2024-6-14

3^#

發表於 2021-7-28 10:04 | 顯示全部帖子

回復 2# samwang

Sub test_T1()
Dim Arr, T,U ,T1, i&, j&
T = Sheets("AA").Range("c1")
U = Sheets("AA").Range("d1")
Ar = Sheets("AA").Range("b3:i19")
With Sheets("QQ")
   Arr = .Range("a1:h" & .[b65536].End(3).Row) 'T1 T1,T2,T3請自行選擇更換
'Arr = .Range("j1:q" & .[k65536].End(3).Row) 'T2
   'Arr = .Range("s1:z" & .[t65536].End(3).Row) 'T3
   For i = 1 To UBound(Arr) Step 19
      T1 = Arr(i, 2): If T1 = "" Then GoTo 99
      If T1 = T Then
         .Cells(i, 1).Offset(1).Resize(16, 8).Value = Ar
         Exit Sub
      End If
99: Next
End With
End Sub

接下來就不知道怎麼用，不知道是不是這樣改。

TOP

zz0660