UserForm1裡的查詢寫入 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » UserForm1裡的查詢寫入

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

UserForm1裡的查詢寫入

中學生 Rank: 2

帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

1^# 跳轉到 »

發表於 2014-3-27 16:42 | 顯示全部帖子

你好!!!
請問一下，我將

Private Sub CommandButton1_Click() '寫入
Dim k As Integer
k = 2
Label5 = ""
With Sheets("工作表1")
Do While .Cells(k, "D") <> ""
If .Cells(k, "D") = TextBox1 Then
Label5 = .Cells(k, "P")
Exit Do
End If
k = k + 1
Loop
End With
End Sub

複製代碼

貼入後，稍作修改，為什麼執行沒有反應呢?
不是會跳出視窗嗎?
還是因為還需要其他的程式碼?

靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。

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