Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1617|回复: 5

[已解决]找个大神帮忙看一下哪里出了错误

[复制链接]
发表于 2013-6-30 20:05 | 显示全部楼层 |阅读模式
现在的VBA 窗体内实时求和弄不来 找了N多代码也不行
本来好好的查询修改也出了问题
谁知道怎么让窗体内实时求和并把值录入到指定的单元格啊?
还有就是我纠结的查询问题,之前好好的 现在跳错误“438”说对象不支持该属性或方法。
求大神指点啊。附件我传上来,麻烦把修改的地方帮我标注一下 谢谢 求公式.jpg
最佳答案
2013-6-30 20:13
aaaa.rar (31.08 KB, 下载次数: 6)

aaaa.rar

30.68 KB, 下载次数: 5

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-6-30 20:08 | 显示全部楼层
            TextSize.Value = .celss(intRow, 15).Value
写句写错了。
            TextSize.Value = .cells(intRow, 15).Value
回复

使用道具 举报

发表于 2013-6-30 20:10 | 显示全部楼层
ComboLX2.Value = .Cells(inrow, 24).Value
这里又露了T了。
ComboLX2.Value = .Cells(introw, 24).Value
回复

使用道具 举报

发表于 2013-6-30 20:10 | 显示全部楼层
窗体初始化的代码如下:
  1. Private Sub UserForm_Initialize()

  2. '添加项目到“学历”复合框
  3.     ComboEdu.AddItem "博士"
  4.     ComboEdu.AddItem "硕士"
  5.     ComboEdu.AddItem "本科"
  6.     ComboEdu.AddItem "大专"
  7.     ComboEdu.AddItem "中专"
  8.     ComboEdu.AddItem "高中"
  9.     ComboEdu.AddItem "初中"
  10.     ComboEdu.AddItem "其他"

  11.     '添加项目到“职称”复合框
  12.     ComboTitle.AddItem "总经办"
  13.     ComboTitle.AddItem "财务部"
  14.     ComboTitle.AddItem "行政部"
  15.     ComboTitle.AddItem "市场部"
  16.     ComboTitle.AddItem "工程部"
  17.     ComboTitle.AddItem "餐饮部"
  18.     ComboTitle.AddItem "安全部"
  19.     ComboTitle.AddItem "保洁部"
  20.    
  21.     '添加项目到“职位”复合框
  22.     ComboDuty.AddItem "总经理"
  23.     ComboDuty.AddItem "副总经理"
  24.     ComboDuty.AddItem "部门经理"
  25.     ComboDuty.AddItem "主管"
  26.     ComboDuty.AddItem "领班"
  27.     ComboDuty.AddItem "职员"
  28.    
  29.     '添加项目到“联系方式一、二、三”
  30.     ComboLX1.AddItem "固定电话"
  31.     ComboLX1.AddItem "移动电话"
  32.     ComboLX1.AddItem "腾讯QQ"
  33.     ComboLX1.AddItem "E-mail"
  34.    
  35.     ComboLX2.AddItem "固定电话"
  36.     ComboLX2.AddItem "移动电话"
  37.     ComboLX2.AddItem "腾讯QQ"
  38.     ComboLX2.AddItem "E-mail"
  39.    
  40.     ComboLX3.AddItem "固定电话"
  41.     ComboLX3.AddItem "移动电话"
  42.     ComboLX3.AddItem "腾讯QQ"
  43.     ComboLX3.AddItem "E-mail"

  44.     CmdSave.Caption = "增加"
  45.     Me.Caption = "新增员工资料"
  46.     If strStatus = "查询" Then
  47.         Dim intRow As Integer
  48.         intRow = intCurrentRow
  49.         With Sheets("员工基本信息表")
  50.             TextName.Value = .Cells(intRow, 2).Value
  51.             If .Cells(intRow, 3).Value = "男" Then
  52.                 OptionMan.Value = True
  53.             Else
  54.                 OptionWoman.Value = True
  55.             End If
  56.             ComboEdu.Value = .Cells(intRow, 4).Value
  57.             TextBirth.Value = .Cells(intRow, 5).Value
  58.             TextID.Value = .Cells(intRow, 6).Value
  59.             TextNation.Value = .Cells(intRow, 7).Value
  60.             ComboTitle.Value = .Cells(intRow, 8).Value
  61.             ComboDuty.Value = .Cells(intRow, 9).Value
  62.             TextJBGZ.Value = .Cells(intRow, 10).Value
  63.             TextGLGZ.Value = .Cells(intRow, 11).Value
  64.             TextXLGZ.Value = .Cells(intRow, 12).Value
  65.             TextZWGZ.Value = .Cells(intRow, 13).Value
  66.             TextZJ.Value = .Cells(intRow, 14).Value
  67.             TextSize.Value = .Cells(intRow, 15).Value
  68.             TextGYG.Value = .Cells(intRow, 16).Value
  69.             TextRDSJ.Value = .Cells(intRow, 17).Value
  70.             TextSGSJ.Value = .Cells(intRow, 18).Value
  71.             TextBegin.Value = .Cells(intRow, 19).Value
  72.             TextEnd.Value = .Cells(intRow, 20).Value
  73.             TextWarn.Value = .Cells(intRow, 21).Value
  74.             ComboLX1.Value = .Cells(intRow, 22).Value
  75.             TextLX1.Value = .Cells(intRow, 23).Value
  76.             ComboLX2.Value = .Cells(intRow, 24).Value
  77.             TextLX2.Value = .Cells(intRow, 25).Value
  78.             ComboLX3.Value = .Cells(intRow, 26).Value
  79.             TextLX3.Value = .Cells(intRow, 27).Value
  80.             TextAdd.Value = .Cells(intRow, 28).Value
  81.             TextNAdd.Value = .Cells(intRow, 29).Value
  82.             TextSb.Value = .Cells(intRow, 30).Value
  83.             TextGJJ.Value = .Cells(intRow, 31).Value
  84.             
  85.             
  86.         End With
  87.         CmdSave.Caption = "保存"
  88.         Me.Caption = "查询/修改员工资料"
  89.     End If

  90. End Sub
复制代码
回复

使用道具 举报

发表于 2013-6-30 20:13 | 显示全部楼层    本楼为最佳答案   
aaaa.rar (31.08 KB, 下载次数: 6)
回复

使用道具 举报

 楼主| 发表于 2013-6-30 20:23 | 显示全部楼层
谢谢大神啊 我这粗心的毛病 - -
找实时代码找了一下午 现在刚弄回
查询错误 漏单词 - - 眼拙 找死都找不出来
真心感谢了
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 16:15 , Processed in 0.280998 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表