如何将combobox 中的selecteditem 传递到字串？-CSDN论坛

如何将combobox 中的selecteditem 传递到字串？

其他开发语言 > Office开发/ VBA

收藏回复

[问题点数：20分，结帖人jackhu]

⋅如何将combobox 中的selecteditem 传递到字串？ ⋅分未涨 ⋅关于IUSER_SERVER用户名 更多帖子 关注私信空间博客 jackhu 等级 本版专家分：1 结帖率 100%: Private Sub ComboBox2_Change(ByVal v2)
ActiveSheet.Shapes("ComboBox2").Select
Selection.ListFillRange = "G25:G35"

Dim instance2 As ComboBox
value2 = instance2.SelectedItem
instance2.SelectedItem = value2
v2 = value2.tostring
End Sub

不工作，谢谢先

2007-07-10 11:56:09

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅如何将combobox 中的selecteditem 传递到字串？ ⋅分未涨 ⋅关于IUSER_SERVER用户名 更多帖子 关注私信空间博客 jackhu 等级 本版专家分：1: //All codes are in the current sheet

Private Sub ComboBox1_Change()
'fill items into combobox1
ActiveSheet.Shapes("ComboBox1").Select
Selection.ListFillRange = "M28:M37"
'copy the one selected item from combobox into a static value
Dim value1 As Variant
Static v1 As String
value1 = Me.ComboBox1.Text
v1 = value1
End Sub

Private Sub ComboBox2_Change()
'fill items into combobox1
ActiveSheet.Shapes("ComboBox2").Select
Selection.ListFillRange = "O28:O37"
'copy the one selected item from combobox into a static value
Dim value2 As Variant
Static v2 As String
value2 = Me.ComboBox2.Text
v2 = value2
End Sub

Private Sub ComboBox3_Change()
'fill items into combobox3
ActiveSheet.Shapes("ComboBox3").Select
Selection.ListFillRange = "R28:R37"
'copy the one selected item from combobox into a static value
Dim value3 As Variant
Static v3 As String
value3 = Me.ComboBox3.Text
v3 = value3
End Sub

//addnew function
Sub AddNew()

    'Update data on Sheet1

    Dim Vkey As Integer
    Dim VDwgName As String
    Dim VPathName As String
    Dim VClassification As String
    Dim VBuildingName As String
    Dim VDwgType As String
    Dim VLevel As String
    Dim VYear As String
    Dim VRegion As String
    Dim VAsset As String

    Dim VRow As Long
    Dim VFound As Boolean

    'MsgBox "The name of the active sheet is " & ActiveSheet.Name

    'Before adding new entry, make sure a value was entered
    If IsEmpty(Range("O2").Value) = False Then


        'Retrieve new information
        Vkey = Range("O2").Value
        VDwgName = Range("O4").Value
        VPathName = Range("O6").Value
        'pass three static value into strings
        VClassification = v1
        VBuildingName = v3
        VDwgType = v2

        VLevel = Range("O14").Value
        VYear = Range("O16").Value
        VRegion = Range("O18").Value

        'Move to Sheet1 to save the changes
        'Sheets("Sheet2").Select

        VFound = False

        VRow = 87

        Do While VFound = False

            'Encountered a blank project number (assuming end of list on Sheet1)
            If IsEmpty(Range("A" & VRow).Value) = True Then
                VFound = True
            End If

            VRow = VRow + 1
        Loop
        'copy data into cells on the sheet
        Range("A" & VRow - 1).Value = Vkey
        Range("B" & VRow - 1).Value = VDwgName
        Range("C" & VRow - 1).Value = VPathName
        Range("D" & VRow - 1).Value = VClassification
        Range("E" & VRow - 1).Value = VBuildingName
        Range("F" & VRow - 1).Value = VDwgType
        Range("G" & VRow - 1).Value = VLevel
        Range("H" & VRow - 1).Value = VYear
        Range("I" & VRow - 1).Value = VRegion
        Range("J" & VRow - 1).Value = VAsset
        Range("A" & VRow - 1).Value = Vkey
        Range("B" & VRow - 1).Value = VDwgName
        Range("C" & VRow - 1).Value = VPathName
        Range("D" & VRow - 1).Value = VClassification
        Range("E" & VRow - 1).Value = VBuildingName
        Range("F" & VRow - 1).Value = VDwgType
        Range("G" & VRow - 1).Value = VLevel
        Range("H" & VRow - 1).Value = VYear
        Range("I" & VRow - 1).Value = VRegion
        Range("J" & VRow - 1).Value = VAsset

       MsgBox ("New Entry was successfully added.")
    End If

End Sub

2007-07-10 14:40:26

点赞只看TA 引用举报 #1得分 0

⋅如何将combobox 中的selecteditem 传递到字串？ ⋅分未涨 ⋅关于IUSER_SERVER用户名 更多帖子 关注私信空间博客 jackhu 等级 本版专家分：1: I have already figured it out, thank you for browsing this!

2007-07-11 03:14:50

点赞只看TA 引用举报 #2得分 0

收起

收藏回复

jackhu

等级：

关注私信 TA的帖子

C#培训2019-9-18第三课 WinForm控件 ListBox/ComboBox/radioButton/checkbox/TreeView: ... -+ 事件注销/卸载 2、coding style private 修饰全局变数（字段）需要加前缀m_ public 修饰的不用加，因为如果需要public修饰，一般会写成属性 ...3、ListBox控件（lbXXX） ...①是否可以多选(选择多个项目)：...

1-3 Winform 中的常用控件(2): 4．案例学习：用户登录功能设计本次实验目标是通过用户键入名称和密码，经过判别为非空性之后，再判断是否符合系统规定的...由图1-12所示，从工具箱之中拖拽标签控件、Button按钮控件以及在工具栏内的容器之中的g...

Flex基础-----之DataProvider详解: 在我分享的一篇文章中，讲解了几种关于做DataProvider的途径，但是最近没事又仔细的了解了一下。发现这其中还有好多变化之处。下面就讲拿用数组作为数据提供器来详细解析一下：举个最简单的例子： xmlns:mx=...

TUT 点奶特期末复习资料总结: C井期末复习资料总结 1. 基本题目累加 private int sum(int n) { int sum1 = 0; for (int i = 1; i <= n; i++) sum1 += i; return sum1; } (2) 阶乘 private int fun1(int n) ...

【C#】基础知识: C#常用函数表1、DateTime 数字型System.DateTime currentTime=new System.DateTime();1.1 取当前年月日时分秒currentTime=System.DateTime.Now;1.2 取当前年int 年=currentTime.Year;1.3 取当前月int 月=currentTime...

列表控制List Control ListBase IDC_LST listbox使用方法: 与列表相关的控件有：列表控件（List Control）、水平列表控件（HorizontalList Control）、片式列表控件（TileList Control）、组合框控件（ComboBox Control）等。这些控件直接或间接地继承mx.controls....

ASP.NET筆記(本人收集整理): ASP.NET筆記字符轉日期 string strDate;DateTime FmtDate=Convert.ToDateTime(this.TxtGetDate.Text);strDate = FmtDate.ToString("yyyy/MM/dd hh:mm:ss"); 今天日期string strDate=null;strDate = DateTi

GPS定位代码C# VS2005 Sample Code: GPS定位处理

Flex 设置控件的 labelFunction: 默认情况下，在Flex 中基于List 的控件都是使用dataProvider 中的元素的label 属性来做显示。在一些情况中，无论如何，dataProvideer 中都没有label 属性存在，这些情况就需要你来设定连接dataProvider 中的多个字段...

C#基础之ADO.Net笔记5: ——杨中科老.Net师视频笔记 C#基础之ADO.Net笔记51 第一个mdf项目2 文件结构：2 Login.cs(program.cs)2 登录练习18 文件结构：8 Program.cs9 Form1.cs10 ... 数据的导入导出...

C#-System.IO: //Using System.IOSystem.io命名空間中常用的成員類別BiaryReaderBinarywriterStreamreaderstreamwriterstringReaderstringwriterDirectoryDircetoryInfo 沒有安全檢查Driveinfo 哪些磁碟可用，類型，容量，可用空...

Flex UI Related: Flex UI Related code

C#-File存取: appendalltext(s1,s2) 將字串為s1的檔附加到s1檔，檔案不存在，會自動建立appendtext(s) 將s檔名的檔案附到回傳值 ex: string s = @"c:/temp.txt" streamwriter sw = file.appendtext(s);copy(s1,s2) 將檔名為...

如何寫GPS定位的程式碼 C# VS2005 Sample Code: 參閱:http://www.dotblogs.com.tw/jeff-yeh/archive/2008/06/11/4266.aspx#13956 之前有寫了一篇"讓人知道你在那"的文章,希望能自己寫程式去運用GPS的定位功能,而這篇文章將會帶到兩個部份,第一個部份是PDA回傳資料...

七夕情人节表白HTML源码(两款): 七夕节、情人节表白用的HTML源码(两款)

jd_seckill京东抢茅台插件最新版【京东飞天茅台1499抢购】Python脚本的完整安装+使用教程: jd_seckill京东抢茅台插件最新版【京东飞天茅台1499抢购】Python脚本的完整安装+使用教程，这个很好用，稳定出单！

SecureCRT中文破解版: SecureCRT中文破解版欢迎大家下载，非最新版本！！！

Xshell-7.0个人免费版.zip: Xshell-7.0个人免费版，供个人免费使用。 Xshell 是一个强大的安全终端模拟软件，它支持SSH1, SSH2, 以及Microsoft Windows 平台的TELNET 协议。Xshell 通过互联网到远程主机的安全连接以及它创新性的设计和特色帮助用户在复杂的网络环境中享受他们的工作。Xshell可以在Windows界面下用来访问远端不同系统下的服务器，从而比较好的达到远程控制终端的目的。除此之外，其还有丰富的外观配色方案以及样式选择。

C Primer Plus 第6版中文版.pdf带书签非扫描版良心资源: C+Primer+Plus（第6版）中文版,不是扫描版,而是文字电子书，非常的高清，带目录

Office2016专业增强版中文免费正式版(附安装教程)64位: Microsoft office 2016专业增强版是一款由官方发布的Microsoft office办公软件，而且免费开放给所有Windows用户免费使用，其中Excel、word、PPT都非常智能化，界面最新加入暗黑主题，并且按钮的设计风格开始向Windows10靠拢。本平台提供Office 2016专业增强版，需要的朋友可下载试试！ Office 2016 专业增强版安装教程 1. 下载

新年快乐! python实现绚烂的烟花绽放效果: 主要为大家详细介绍了python利用可视化技巧实现烟花绽放效果，具有一定的参考价值，感兴趣的小伙伴们可以参考一下

PLSQLDeveloper 绿色版 64位解压版（含说明）: PLSQLDeveloper_解压版(64位可用),内设readme说明

德勤举报PPT.pdf: 德勤举报PPT.pdf

jd_seckill京东抢茅台插件: 这个很好用，稳定出单！

STM32全系列 Keil MDK pack包（当前最新离线包）: STM32全系列 Keil MDK pack离线包注：由于上传大小限制，除了F0和F1的包，其他的提供链接通过百度云下载。包括以下包，当前最新版本（20200115） Keil.STM32F0xx_DFP.2.0.0.pack Keil.STM32F1xx_DFP.2.3.0.pack Keil.STM32F2xx_DFP.2.9.0.pack Keil.STM32F3xx_DFP.2.1.0.pack Keil.STM32F4xx_DFP.2.14.0.pack Keil.STM32F7xx_DFP.2.12.0.pack Keil.STM32H7xx_DFP.2.3.1.pack Keil.STM32G0xx_DFP.1.2.0.pack Keil.STM32G4xx_DFP.1.1.0.pack Keil.STM32L0xx_DFP.2.0.1.pack Keil.STM32L1xx_DFP.1.2.0.pack Keil.STM32L4xx_DFP.2.3.0.pack Keil.STM32L5xx_DFP.1.1.0.pack Keil.STM32MP1xx_DFP.1.1.0.pack Keil.STM32W1xx_DFP.1.0.0.pack Keil.STM32WBxx_DFP.1.0.0.pack

2021CFA一级Notes1-5（完）.zip: 2021CFA一级Notes1-5，有5本pdf。

Python高级编程.pdf: 《Python高级编程》通过大量的实例，介绍了Python语言的最佳实践和敏捷开发方法，并涉及整个软件生命周期的高级主题，诸如持续集成、版本控制系统、包的发行和分发、开发模式、文档编写等。《Python高级编程》首先介绍如何设置最优的开发环境，然后以Python敏捷开发方法为线索，阐述如何将已被验证的面向对象原则应用到设计中。这些内容为开发人员和项目管理人员提供了整个软件工程中的许多高级概念以及专家级的建议，其中有些内容的意义甚至超出了Python语言本身。

图书管理系统（Java + Mysql）我的第一个完全自己做的实训项目: 图书管理系统 Java + MySQL 完整实训代码，MVC三层架构组织，包含所有用到的图片资源以及数据库文件，大三上学期实训，注释很详细，按照阿里巴巴Java编程规范编写

wallet.dat.zip: 8个比特币钱包文件，一共600多个，有能力的可以尝试破解.

玩转Spring: Spring框架是目前Java企业级开发中必不可少的一门技术，而Spring包含的内容又极其丰富，对于初学者来说无从把握，而该技术的更新速度相对快，如现在企业中用纯注解的方案，网上也很难找到全注解方案。本套视频，主要讲解Spring 3.2.9的使用，对使用者的要求：已经会使用Struts 2和Hibernate 4等技术，同时对Spring的IOC有一些了解。能够采用Struts 2.3 + Spring 3.2 +JDBC搭建项目能够了解AOP概念和AOP在项目中的使用会使用三种声明方式进行事务管理 IOC的注解方式完成SSH 在Myeclipse 2015中进行SSH快速搭建采用Eclipse完成SSH框架搭建及功能实现

相关热词 c#小程序 c# 网站检测 c# 两个问号 c#中泛型的重载 c#json添加 c# 图形界面设计 c# 没有注册类 c# 截取最后一个字符串 c# 释放指针 c#可不可以做网页开发