vba问题

krampaul82 · 发表于 2008-10-23 15:06:07

&nbsp；：realmad：
以下代码对前两个案例语句GT-116 PD和GT-116PC起支持作用，但对接下来的两个案例声明GT-16PB和GT.116PA无效。它将警告用户选择水平或垂直管道安装位置（见代码）
任何帮助都将不胜感激
标记VBA代码开始

copy


Private Sub cmd_sensor_gt_116_p_Click()
'ComboBox_gt_116_p Dropdown Menu
  ComboBox_gt_116_p.Style = fmStyleDropDownList
'Get ComboBox_gt_116_p Dropdown Menu user pick
 Select Case ComboBox_gt_116_p.Text
     
     Case "GT 116-PD"    'Calls sub from Module_ebtron_sensors
     
       If Opt1_gt_116_horiz = True Then
       'Gets the Horizontal block
        Sensor_gt_116_pd_horizontal_get
       End If
       If Opt2_gt_116_vert = True Then
       'Gets the Vertical block
        Sensor_gt_116_pd_vertical_get
       Else: pick_gt_116_position_warn
       End If
     
     Case "GT 116-PC"    'Calls sub from Module_ebtron_sensors
      
       If Opt1_gt_116_horiz = True Then
       'Gets the Horizontal block
        Sensor_gt_116_pc_horizontal_get
       End If
       
       If Opt2_gt_116_vert = True Then
       'Gets the Vertical block
         Sensor_gt_116_pc_vertical_get
        Else: pick_gt_116_position_warn
       End If
                 
     Case "GT 116-PB"    'Calls sub from Module_ebtron_sensors
         
         If Opt1_gt_116_horiz = True Then
         'Gets the Horizontal block
          Sensor_gt_116_pb_horizontal_get
         End If
         
         If Opt2_gt_116_vert = True Then
         'Gets the Vertical block
          Sensor_gt_116_pb_vertical_get
         Else: pick_gt_116_position_warn
         End If
      
     Case "GT 116-PA"    'Calls sub from Module_ebtron_sensors
     
        If Opt1_gt_116_horiz = True Then
        'Gets the Horizontal block
          Sensor_gt_116_pa_horizontal_get
        End If
        
        If Opt2_gt_116_vert = True Then
        'Gets the Vertical block
          Sensor_gt_116_pa_vertical_get
        Else: pick_gt_116_position_warn
        End If
        
      End Select
      
End Sub

Matt__W · 发表于 2008-10-23 15:18:08

梅伯那里&#039；这些潜艇有什么问题吗
Sensor\u gt\u 116\u pa\u horizontal\u get

krampaul82 · 发表于 2008-10-23 15:42:08

包含这些子组件的模块基本相同，如果单独运行，它们将完成支持的任务

krampaul82 · 发表于 2008-10-23 15:46:05

在某个地方（显然）出现了一些问题，发布了更大整体的一小部分；我真的帮不上什么忙#039；正在进行中；我的建议是在代码中放置一个断点，然后用F8逐步遍历代码，这样您就可以逐行查看它（代码）在做什么。

Matt__W · 发表于 2008-10-28 12:49:01

我的问题是组合框add item语句中的连字符位置（请参见下划线）。一旦删除，问题就解决了。
Sub-UserForm_Initialize（）
&039；组合框Ebtron选项&nbsp；ComboBox\u gt\u ht\u st\u风扇。添加项“；GT 116-F“&nbsp&nbsp'GT 116-F=0案例选择&nbsp；ComboBox\u gt\u ht\u st\u风扇。添加项“；HT 104-F“&nbsp&nbsp'HT 104-F=1病例选择&nbsp；ComboBox\u gt\u ht\u st\u风扇。添加项“；ST 104-F“&nbsp&nbsp'ST-104-F=2病例选择&nbsp&nbsp
&nbsp&nbsp'ComboBox\u gt\u ht\u st\u fan第一项静态&nbsp&nbsp；ComboBox\u gt\u ht\u st\u风扇。ListIndex=0&nbsp；ComboBox\u gt\u 116\u p。添加项“；GT 116-PD“&nbsp&nbsp'GT 116-PD=0案例选择&nbsp；ComboBox\u gt\u 116\u p。添加项“；GT 116-PC“&nbsp&nbsp'GT 116-PC=1个案例选择&nbsp；ComboBox\u gt\u 116\u p。添加项“；GT-116-PB“&nbsp&nbsp'GT 116-PB=2个案例选择&nbsp；ComboBox\u gt\u 116\u p。添加项“；GT-116-PA“&nbsp&nbsp'GT 116-PA=3个案例选择&nbsp
&nbsp
&nbsp&nbsp
&nbsp&nbsp'ComboBox\u gt\u 116\u p第一项静态&nbsp&nbsp；ComboBox\u gt\u 116\u p。ListIndex=0

krampaul82 · 发表于 2008-10-28 13:52:53

那么，现在是谁&#039；是谁的错&nbsp&nbsp
很高兴你想到了！

krampaul82 · 发表于 2008-10-29 13:16:01

那么，现在是谁&#039；是谁的错&nbsp&nbsp
很高兴你想到了
谢谢你

vba问题

发表回复

精选推荐