台灣最大程式設計社群網站
線上人數
751
 
會員總數:244227
討論主題:188566
歡迎您免費加入會員
討論區列表 >> 其他語言 >> VBA的组合框和文本框等于excel的任意单元格
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
VBA的组合框和文本框等于excel的任意单元格
價值 : 100 QP  點閱數:331 回應數:7

樓主

蓝蓝
初學者
100 19
403 93
發送站內信

我有个用VBA写的如下。

当组合框选择了任意一个Company,输入了性别后,然后按submit,在number那边会出现正确的gender的数量。

选择了ABC,输入了Male,按了submit,number那边就会出现39。





运行后代码显示Type Mismatch的Error在“If .ComboBox1.Value = sht.Range("B4:G4").Value AND .txtgender.value = sht.Range("B5:G5")Then”。

请各位高手指点指点。



搜尋相關Tags的文章: [ VBA ] , [ excel ] ,
本篇文章發表於2018-07-31 14:14
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

P陳
檢舉此回應
看起來是
sht.Range("B5:G5") 沒有 .value
本篇文章回覆於2018-07-31 17:40
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

蓝蓝
檢舉此回應
是的。

当我把代码改成sht.Range("B5").Value后,就出现了资料。

但是因为范围是属B到G所以不能单写一个。

我想请问如何才可以把范围拉大,让程序能在这范围里选出正确的资料。
本篇文章回覆於2018-07-31 17:46
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
回應

P陳
檢舉此回應
您的題目比答案難很多 很多
要比較多欄的話請用 for next 來處理
本篇文章回覆於2018-07-31 21:39
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
作者回應

蓝蓝
檢舉此回應
基于我的题目相当难,所以我把数据库改成如下图。



用For Next的代码也成功把资料叫出来,可是狺ㄛO正确的资料,而且若是加个Msgbox在for next里面,还会不停地looping,txtnumber里的资料也不停的转换。

请各位大神韘ㄛ搰搘N码哪里错误。


本篇文章回覆於2018-08-02 15:16
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
5樓
最有價值解答

roar
檢舉此回應
Private Sub Summit_Click()
Dim sht As Worksheet
Dim i As Long
Dim LastRowCompany As Long

Set sht = ThisWorkbook.Worksheets("工作表1")
LastRowCompany = sht.Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To LastRowCompany

With Me

If sht.Cells(i, 1).Value = .ComboBox1.Value And sht.Cells(i, 2).Value = .txtgender.Text Then
.txtnumber.Text = sht.Cells(i, 3).Value
End If

End With

Next i

End Sub
本篇文章回覆於2018-09-19 13:52
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
6樓
回應

roar
檢舉此回應
原資料格式和位置定位需要修改。
本篇文章回覆於2018-09-19 13:54
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
7樓
作者回應

蓝蓝
檢舉此回應
感激不尽
本篇文章回覆於2018-09-19 15:07
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.