返回列表 上一主題 發帖

請問USERFORM如何參照儲存格資料

回復 1# john711101

類似這樣嘛?
  1. Private Sub UserForm_Activate()
  2. Dim 說明 As Variant
  3. 說明 = Sheets("sheet1").Range("F6:G10").Value
  4. UserForm1.ListBox1.ColumnCount = 2
  5. UserForm1.ListBox1.ColumnWidths = "50,50"
  6. UserForm1.ListBox1.List = 說明
  7. End Sub   
複製代碼

TOP

回復 3# john711101

不是很懂?
是說旁邊再設個按鍵 按了就列印出目前的listbox值嗎?

TOP

        靜思自在 : 有心就有福,有願就有力,自造福田,自得福緣。
返回列表 上一主題