EXCEL-VBA：引用SHEET中的TextBox1（文本框）的值

最新推荐文章于 2024-05-23 15:02:25 发布
最新推荐文章于 2024-05-23 15:02:25 发布
阅读量1.8w 收藏 4
点赞数 3
分类专栏： OFFICE-EXCEL VBA 文章标签： 引用 SHEET TextBox1 值 文本框
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/jyh_jack/article/details/78038206
版权 
str = ActiveSheet.TextBox1.Value

小鸿叔
关注
  • 3
    点赞
  • 踩
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
vba实现窗体文本框显示sheet1单元格内容
weixin_42608299的博客
02-16 2293
您好！以下是实现VBA代码，以显示Sheet1单元格内容在窗体文本框中： 首先，您需要在窗体上创建一个文本框。在窗体设计器中，双击工具箱中的“文本框”控件并将其拖动到窗体上。然后右键单击文本框，选择“属性”窗口。在属性窗口中，找到“名称”属性并为文本框命名，例如“TextBox1”。 接下来，打开VBA编辑器。可以通过按下Alt+F11键或在开发者选项卡中单击“Visual Basic”按钮来打开...
VBA中文本框等对象传参
的米-漠石's Blog
07-16 2179
代码：function test(txt as textbox) .... end function test(textbox1)调用时，报错，类型不匹配 (type mismatch)一直以为是自己是其它问题，花费数小时未果。实在是解决不了，经网上搜索，原来是类名的问题，
vba读取文本文件数据
最新发布
豪情云天博客,分享经典好用代码,和工具,感谢大家的关注和支持!
05-23 303
【代码】vba读取文本文件数据。
Excel收纳箱：VBA将所选区域文本插入新建文本框
ffcell2016的博客
09-04 768
5.然后在代码区域输入如下代码，并设置个人常用和函数说明，以方便快速找到该命令。如图所示如何选中文本一键就可以生成文本内容的文本框呢，看小编分享的VBA。7.找到刚刚添加的宏命令，并单击执行按钮。2.首先选择方方格子的diy工具箱。8.好了即可看到插入的文本操作。如果经验帮到了你，请记得分享！4.选择本地新建操作命令。3.选择收纳箱的操作。
winform 一些控件的赋值与取值
gdali的专栏
05-09 2448
1、textBox 赋值：textBox1.Text = “A”; 取值：string A =textBox1.Text； 2、comboBox 赋值： ArrayList mylist = new ArrayList(); mylist.Add(new DictionaryEntry("1", "正常")); my...
WinForm开发(7)——TextBox(1)——TextBox操作
qq_34573534的博客
05-15 4987
1、C#textbox控件的不可编辑属性： ReadOnly=true; 2、C# TextBox输入框设置为密码类型的方法： 设置TextBox的PasswordChar属性为* 3、获取textbox的值： 调用TextBox对象的Text属性就能获取文本框的值，例如: TextBox tb=new TextBox(); String str=tb.Text; 4...
将Excel特定单元格数据和图表输出到ppt中
09-15
将Excel特定单元格数据和图表输出到ppt中,适用于批量从电子表格中读数据批量制作ＰＰＴ
c#窗体应用中textbox2调用textbox1的数据怎么做
weixin_45047700的博客
03-26 778
textbox2想要对textbox1的数据进行排序
excel 单元格如何获取textbox中的值 java,把excel表格数据定义为文本框-excel中如何将单元格里的数值显示在文本框(textbox)里...
weixin_34910679的博客
03-19 915
excel中如何将单元格里的数值显示在文本框(textbox)里sheets("Sheet2").range("b3")=textbox----------------------比如这样，你在sheet1放文本框，和一。你在文本框输入内容，然按钮，文本框的值便赋到Sheet2的B3单元格中去。你在按钮的CLICK事件下写入代码Sheets("Sheet2").Range("B3")=TextBo...
怎样将TextBox中的数值赋值给变量
青铜小码农
11-30 335
hv_rot_x[0] = int.Parse(textBox2.Text);
VBA实现从EXCEL单元格更新或修改PPT对应文本框内容并且不改变格式
Modas Li的博客
12-23 6464
VBA实现从EXCEL单元格更新或修改PPT对应文本框内容并且不改变格式配置工作开发演示注意点！！！打赏 原创不容易，请不要抄袭！ 配置工作 EXCEL 2010版本以上配置 文件-选项-自定义功能区-主选项卡-勾选开发者选项 打开开发者选项里的Visual Basic, 选择工具-引用-勾选Microsoft Powerpoint 14.0 Object Library 开发 打开Visu...
Excel-VBA实用技巧范例-操作文本框.zip
03-18
这个“Excel-VBA实用技巧范例-操作文本框.zip”文件显然是一个包含有关如何使用VBA操作Excel中的文本框的教程或示例集合。 文本框在Excel中通常用于输入、显示或格式化文本数据。通过VBA，你可以控制文本框的位置、...
Excel-VBA宏编程实例源代码-在RichText文本框中拖曳lcon以获取路径.zip
03-18
在VBA中，我们可以使用`TextBox`对象来创建和操作这样的文本框。通过设置其属性和事件，我们可以使用户能够拖放图标到文本框中。 拖放操作涉及到VBA中的几个关键事件，如`MouseDown`、`MouseMove`和`MouseUp`。当...
rpg-textbox-tutorial:用于rpg文本框视频的代码
04-03
在`rpg-textbox-tutorial-master`这个压缩包中，你可能会找到以下内容： - 示例项目文件夹，包含了场景、脚本和资源。 - `main.tscn` - 游戏主场景，可能包含文本框UI和其他游戏元素。 - `textbox.gd` - 用于控制...
autosize-input:精巧JavaScript中的动态宽度文本框
05-24
香草JavaScript中的动态宽度文本框，毫不费力。 动态调整文本框的宽度以适合其当前内容 可以初始化以适合其placeholder属性 （可选）根据元素的初始内容设置min-width 压缩718个字节 用法 < input type =" ...
Excel-VBA宏编程实例源代码-从外部直接将值导入窗体中.zip
12-13
用户窗体是VBA中用于创建交互式图形用户界面的组件，可以包含各种控件，如文本框、按钮、列表框等。在这个实例中，用户窗体可能是用来输入或选择外部数据源的路径，以及展示导入后的数据。 接着，VBA代码会使用内置...
把excel中的内容搬迁到PPT中的VBA编程
olivesun88的博客
03-25 7582
这段程序放在excel的vba中，直接执行就可以了，是选定了当前sheet的A列，然后把这一列内容拷贝到ppt中，每一个cell值做ppt的一页中的一个标题 Sub test()          Dim ptApp As Object     Set ptApp = CreateObject("PowerPoint.Application")     Dim ptPre As Obje
Excel 2010 VBA 入门 125 创建动态智能匹配的下拉列表
复行数十步
10-28 3329
目录 题 码 TextBox控件和ListBox控件 ListBox控件的ListFiIIRange属性和List属性 ListBox控件的多列显示 ListBox控件的值 模糊查询下拉列表 控件的选用 ListBox和ComboBox控件 题 在Excel中，可以使用数据有效性创建下拉列表。当列表项目较多时，数据有效性所创建的下拉列表就很难快速并准确地定位。如图所示，该表为某公司客户一览，现准备建立查询表，希望在查询表的客户列中建立下拉列表，并允许输入关键字后显示匹配该关键字..
VBA提高篇_26 Textbox多行_ListBox_ComboBox
pigerr的博客
02-20 3116
☆ Rowsource属性与List属性冲突,不能混合使用。
def show_sheet(self, sheet_name): self.textbox.tag_configure("left", justify="left") sheet = self.workbook[sheet_name] rows = sheet.max_row # 清空文本框 self.textbox.delete(1.0, tk.END) # 添加表名并设置居中标签 self.textbox.insert(tk.END, sheet_name + ":\n", "center") # 显示工作表内容，并在相应数据后面添加下拉输入框 for row in sheet.iter_rows(values_only=True): for i, cell in enumerate(row): line = str(cell) + "\t" if i == 0: # 在第一列数据后面添加下拉输入框 combobox = tk.ttk.Combobox(self.textbox, values=["OK", "NG", "未開綫", "未使用"]) combobox.pack(side=tk.TOP, padx=10, pady=5) self.textbox.window_create(tk.END, window=combobox) self.textbox.insert(tk.END, line, "left") self.textbox.insert(tk.END, "\n") # 设置居中标签的样式 self.textbox.tag_configure("center", justify="center", font=("Arial", 18, "bold"), foreground="blue") # 判断表名是否为“產綫-Router机粉塵記錄表”，如果是，则清空文本框 if sheet_name == "產綫-Router机粉塵記錄表": self.textbox.delete(1.0, tk.END) # 添加表名并设置居中标签 self.textbox.insert(tk.END, sheet_name + ":\n", "center")在這段代碼的 判斷當前工作表名如果等於產綫-Router机粉塵記錄表清空文本框内容，添加表名，將一天24小時分成12組分別是08:00--10:00 10:00--12:00 12:00--14:00 14:00-16:00 16:00-18:00 18:00-20:00 20:00-22:00 22:00-00:00 00:00-02:00 02:00-04:00 04:00-06:00 06:00-08:00，獲取當前時間是在那一組中，就將那一組寫入文本框中也有在文本前添加下拉輸入框，如當前時間是在09：00點，那麽就寫入08：00-10：00，不要將excel原本内容顯示出來
06-02
对于判断表名是否为“產綫-Router机粉塵記錄表”，如果是，则清空文本框内容，添加表名，并将一天24小时分成12组分别是08:00--10:00、10:00--12:00、12:00--14:00、14:00-16:00、16:00-18:00、18:00-20:00、20:00-22:00、22:00-00:00、00:00-02:00、02:00-04:00、04:00-06:00、06:00-08:00。獲取當前時間是在那一組中，就將那一組寫入文本框中，可以参考以下代码： ``` if sheet_name == "產綫-Router机粉塵記錄表": self.textbox.delete(1.0, tk.END) # 获取当前时间是在哪一组中 time_groups = ["08:00-10:00", "10:00-12:00", "12:00-14:00", "14:00-16:00", "16:00-18:00", "18:00-20:00", "20:00-22:00", "22:00-00:00", "00:00-02:00", "02:00-04:00", "04:00-06:00", "06:00-08:00"] now_time = datetime.datetime.now().strftime('%H:%M') for i in range(len(time_groups)): if now_time >= time_groups[i].split("-")[0] and now_time < time_groups[i].split("-")[1]: current_time_group = time_groups[i] break # 将当前时间段添加到文本框中 self.textbox.insert(tk.END, current_time_group + ":\n", "center") ``` 需要注意的是，这个代码只是获取当前时间所在的时间段，并将该时间段添加到文本框中，不会将excel原本的内容显示出来。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值