返回列表 上一主題 發帖

vba listbox ColumnHeads的表頭

owenchen0911

帖子
8 
主題
3 
精華
0 
積分
11 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
註冊時間
2016-5-24 
最後登錄
2016-7-9 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-6-1 21:17 | 只看該作者

vba listbox ColumnHeads的表頭

嗨，大家晚安 :

想請教一下VBA表單裡的listbox，切割好欄位後，怎麼新增表頭的文字上去，如下圖，

Google一些文章，都沒有看到合適的，特來請教大家，謝謝


    ___
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2016-6-2 07:57 | 只看該作者
回復 1# owenchen0911
listbox，切割好欄位後???

ListBox 要顯示ColumnHeads,清單的來源必需用.RowSource 指定
RowSource 需是單一的連續儲存格範圍 ,不可用切割
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

owenchen0911

帖子
8 
主題
3 
精華
0 
積分
11 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
註冊時間
2016-5-24 
最後登錄
2016-7-9 
3#
發表於 2016-6-2 10:12 | 只看該作者
回復  owenchen0911
listbox，切割好欄位後???

ListBox 要顯示ColumnHeads,清單的來源必需用.RowSour ...
GBKEE 發表於 2016-6-2 07:57



    Hi,

我的code如下，這樣子子項目可以加進去，那麼頭還可以用  "ColumnHeads"嗎??謝謝
  1. ListBox1.ColumnCount = 7
  2. ListBox1.ColumnHeads = True

  4. '增加項目進去
  5. IListRow = ListBox1.ListCount
  6.         ListBox1.AddItem ComboBox_drink_name
  7.         
  8.         ListBox1.List(IListRow, 1) = priceArray(ComboBox_drink_name.ListIndex)
  9.         ListBox1.List(IListRow, 2) = ComboBox_number
  10.         ListBox1.List(IListRow, 3) = ComboBox_number * priceArray(ComboBox_drink_name.ListIndex)
  11.         ListBox1.List(IListRow, 4) = ComboBox_ice
  12.         ListBox1.List(IListRow, 5) = ComboBox_sugar
  13.         ListBox1.List(IListRow, 6) = ComboBox_takeout
  14.         
  15.         xItemCount = xItemCount + 1
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2016-6-3 05:54 | 只看該作者
回復 3# owenchen0911
試試看
  1. Option Explicit
  2. Dim Sh As Worksheet
  3. Private Sub UserForm_Initialize()
  4.     Dim Rng As Range
  5.     Set Sh = ActiveSheet   '指定ListBox1.RowSource 的工作表
  6.     Set Rng = Sh.Range("A1").CurrentRegion
  7.    
  8.     'CurrentRegion 屬性 傳回 Range 物件，該物件代表目前的區域。目前區域是指以任意空白列及空白欄的組合為邊界的範圍。
  9.    
  10.     Set Rng = Application.Intersect(Rng, Rng.Offset(1))
  11.     If Rng Is Nothing Then Set Rng = Sh.Range("A1").CurrentRegion.Rows(2)  '沒有購物清單
  12.     With ListBox1
  13.         .ColumnHeads = True
  14.         .RowSource = Rng.Address
  15.     End With
  16. End Sub
  17. Private Sub Ex_清單() '加入購物清單的程式
  18.     Dim Rng As Range
  19.     Set Rng = Sh.Range("A1").CurrentRegion
  20.     With Rng.Cells(Rng.Rows.Count + 1, "A")
  21.         '增加項目進去
  22.        .Cells(1, 1) = priceArray(ComboBox_drink_name.ListIndex)
  23.        .Cells(1, 2) = ComboBox_number
  24.        .Cells(1, 3) = ComboBox_number * priceArray(ComboBox_drink_name.ListIndex)
  25.        .Cells(1, 4) = ComboBox_ice
  26.        .Cells(1, 5) = ComboBox_sugar
  27.        .Cells(1, 6) = ComboBox_takeout
  28.     End With
  29.     Set Rng = Sh.Range("A1").CurrentRegion
  30.     Set Rng = Application.Intersect(Rng, Rng.Offset(1))
  31.     '重新指定 ListBox1清單範圍
  32.     ListBox1.RowSource = Rng.Address
  33. End Sub
  34. Private Sub Ex_清空() '清空 購物清單的程式
  35.     Sh.Range("A1").CurrentRegion.Offset(1).Clear
  36. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題