一个关于循环语句能否将多个文本框格式的问题【excel吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：170,286贴子：
一个关于循环语句能否将多个文本框格式的问题收藏
比如说我在vba里面将文本框的名字定义为TB1、TB2、TB3..TBn然后通过for循环语句循环n次把TB1.text=""
熊猫办公为您提供精品优质excel下载,各类excel下载即用,可以为人事/行政/运营/产品运营等大量提高工作效率,内容包括财务报表,销售报表,绩效考核等表格模板.
准备上课了,这个问题只是一个构思，要是可以成功的话清空若干文本框就不用写很多代码了.各位大大帮忙想想，晚上回来在看看
额，问了下老师，关于控件的不能用变量代替..看来还是得copy加修改 呵呵
你的文本框位於工作表？还是在自定窗体？
登录百度帐号程序流程控制——For—Each 循环语句_Excel与VBA那点事儿_传送门
程序流程控制——For—Each 循环语句
有了前面对循环一词的理解，这里我们不用再多说，如果你知道了For—next语句的工作原理，这里再来学习For—each循环以及下面我们接着要讲的句式，那就相当简单了，同样的工作原理。学会了吃苹果，那么离会吃梨的道路还会远吗？呵呵，只是开个小小的玩笑，下面我们继续，首先来看看For—Each语句的句式：For Eacn 元素变量 In 对象集合或数组名称
[Exit For]
语句块2next 元素变量和上面For—next句式是一样的工作原理。这里的“元素变量”是用来遍历集合或数中中元素的变量，它从集合或数组的第一个元素开始，直到最后一个元素，然后退出循环。这里我们举个例子，把当前工作薄中工作表的名称写在A列，程序为：Sub shtname()Dim i As Integer, sht As Worksheeti = 1For Each sht In Worksheets
Cells(i, 1) = sht.Name
i = i + 1 '让写入名称的单元格下移一行NextEnd Sub虽然此处讲解的简单，但是理解起来有些困难的，这样，新建一个按钮，复制上面的代码运行一下看看什么结果。这节虽然简单，但是用处非常广泛，各位不要偷懒只看上面叙述的几点，下来之后要多多的操作，不懂的地方在回来问我就可以了。实践见真章！For Eacn语句不仅可以遍历表单，也可以遍历控件，其实就是在你指定的范围内搜寻你要求的内容，找到之后干什么就是你所指定了！多多练习吧！
觉得不错，分享给更多人看到
Excel与VBA那点事儿 微信二维码
分享这篇文章
Excel与VBA那点事儿 最新文章12:41 提问
用PHP导入excel数据到sql Server数据库，写一个循环的插入语句应该怎么写呢？？？
环境php7.0+IIS+SQL Server2014
请问我将excel表格中的数据放在一个数组，然后想要将这个数组的数导入到sql server数据库应该怎么写呢？
代码如下：
$serverName = "localhost"; //serverName\instanceName
$uid = "sa";
$pwd = "987654";
$connectionInfo = array( "UID"=&$uid,"PWD"=&$pwd,"Database"=&"Analysis");
$conn = sqlsrv_connect($serverName, $connectionInfo);
if($conn==false)
echo "Error!";
die(print_r(sqlsrv_errors(),true));
echo "Sucess!";
echo "&br /&";
error_reporting(E_ALL);
date_default_timezone_set('Asia/ShangHai');
require_once 'phpexcel-1.8/Classes/PHPExcel.php';
require_once 'PHPExcel-1.8/Classes/PHPExcel/IOFactory.php';
require_once 'phpexcel-1.8/Classes/PHPExcel/Reader/Excel5.php';
if(!file_exists("data/大分结构.xls")) {
exit("not found 31excel5.xls.");
$reader = PHPExcel_IOFactory::createReader('Excel5'); //设置以Excel5格式(Excel97-2003工作簿)
$PHPExcel = $reader-&load("data/大分结构.xls"); // 载入excel文件
//$reader-&setOutputEncoding('utf-8');
$sheet = $PHPExcel-&getSheet(0); // 读取第一個工作表
$highestRow = $sheet-&getHighestRow(); // 取得总行数
$highestColumm = $sheet-&getHighestColumn(); // 取得总列数
/*循环读取每个单元格的数据 */
for ($row = 2; $row &= $highestR $row++){//行数是以第1行开始
for ($column = 'A'; $column &= $highestC $column++) {
$dataset[]= $sheet-&getCell($column.$row)-&getValue();
//$sql = "insert
into BInfo (BQId,CID,TId,BType,BScore)values('一','00903','00903A','操作题','36')";(只插入一条语句是可以成功的，但是用循环语句就不行了)
//$sql="insert into BInfo (BQId,CID,TId,BType,BScore) values ('{$dataset[0]}','{$dataset[1]}','{$dataset[2]}','{$dataset[3]}','{$dataset[4]}')";//这个语句应该怎么写呢？求帮忙！
$query = sqlsrv_query($conn,$sql);
echo $column.$row.":".$sheet-&getCell($column.$row)-&getValue();
echo "&br /&";
按赞数排序
for 循环挨个打印下，一步一步的推，看看哪里的毛病，先循环列里打印再循环行里打印
准确详细的回答，更有利于被提问者采纳，从而获得C币。复制、灌水、广告等回答会被删除，是时候展现真正的技术了！
其他相关推荐
Sql2005中，提供了uniqueidentifier 数据类型。说白了，就是个GUID，这种类型开发时倒是很有必要的。今天程序中遇到了这个问题：表里定义了一个uniqueidentifier 列，Asp.net程序需要向表中插入新的数据。Insert 语句由数据源控件自动生成：INSERT INTO [morning_Department] ([DepartmentId], [name])
怎么写sql语句将Excel的数据插入到SQL Server数据库.doc
excel表格中有A、B、C三列数据，希望导入到数据库users表中，对应的字段分别是name,sex,age 。
在你的excel表格中增加一列，利用excel的公式自动生成sql语句，方法如下：
1、增加一列（D列）
2、在第一行的D列，就是D1中输入公式： =CONCATENATE(&insert into users (name,sex,age) values ('&,A1,&','
最近因工作需要，需从第三方的excel表中读取数据与sqlserver2008中的表进行数据比对。因第一次操作，费了不少劲。一.32位的系统对应安装32位的excel，64位操作系统对应安装64位的excel，不然office的access驱动安装后起不了作用，甚至会安装报错。二.因为安全原因，需打开“show advanced options”和“Ad Hoc Distributed Queri...
访问外部数据时，opendatasource的使用范例：注意：sql2000默认是启用opendatasource功能的。但sql2005是默认不启用的。如果在sql2005中要使用opendatasource，则需要先开启。
开启方式：
方式一（手工修改sql配置）：在sql2005的配置工具-》sql server外围应用配置器-》即席远程查询-》勾选&启用O
最近做一个安卓app，需要将别人提供的excel表导入到本地，由于数据是一次性定好的，不会有变化，用app直接读取excel太麻烦，就写了个winform小程序，读取Excel文件生成导入的sql语句，代码比较简单，但是比较使用，分享出来有需要的可以看看
using System.Collections.G
using System.Compone
平常从SQLSERVER中进行导入导出时，我们利用SQLSERVER中自带的DTS转换工具即可，很方便。但有些特殊的用法需要用语句进行导入导出，工作中碰到这种情况，查了些资料，下面详细介绍：
一、从excel表导入到SQLSERVER
select * into test_table from
OpenRowSet('microsoft.jet.oledb
原理就是利用excel生成sql语句，然后再到数据库中运行。利用这种方法可以将excel数据导入到各种类型的数据库中。
下面我们以导入mysql为例，说明一下如何使用这种方法。
一、假设你的表格有A、B、C三列数据，希望导入到你的数据库中表格table，对应的字段分别是field1、field2、field3
二、在你的表格中增加一列，利用excel的公式自动生成sql语句：
在制作安装文件时，需要向用户表中插入一条新的记录，其它密码是经过加密后的，密码字段是二进制类型，经过尝试，可以使用正面这个sql语句完成： INSERT INTO [Users] (UserID, [UserName], [Password])VALUES(1, username,CONVERT(varbinary(80),0x8F6D0D51D96A4A9D
最近接到一个蛋疼的活，要把excel中的数据，导入到数据库中，
刚开始首先想到的是用程序去做，但是因为时间很紧，写程序加调试，也不来及，于是就像直接把excel的数据转化成insert语句，然后批量执行，
数据如下，
1、把excel的数据转成inser into ，
在E后面的第一列中放入：=CONCATENATE(&insert查看: 10086|回复: 1
如何在录制宏的代码中使用循环语句？
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
网站名称: Excel技巧网 | Excel专家栖息谷 | 微软中文技术社区合作伙伴
署名作者: biaotiger1
版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
适用版本: 以前版本&
语言环境: 简体中文
学习方法: 掌握Excel技巧的关键是动手操作
下载 ≠ 知识
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
本帖最后由 biaotiger1 于
06:48 编辑
Q：如何在录制宏的代码中使用循环语句？
步骤一、录制如下操作(如何录制宏见下贴：在Excel 2007中如何快速录制宏？ )
鼠标单击A1单元格，输入1，鼠标单击A2单元格。
得到如下代码Sub Macro3()
& & Range(&A1&).Select
& & ActiveCell.FormulaR1C1 = &1&
& & Range(&A2&).Select
End Sub复制代码步骤二、在Sub Macro3()
& & Range(&A1&).Select两句代码之间插入语句，并更改单元格的引用方式（关于单元格的引用方式见下贴：excel VBA中单元格的各种引用方式 ）后，代码如下Sub Macro3()
Dim I As Integer
For I = 1 To 10
& & Range(&A& & I).Select
& & ActiveCell.FormulaR1C1 = &1&
Next I& &
& & Range(&A2&).Select
End Sub复制代码步骤三、简化代码如下Sub Macro3()
Dim I As Integer
For I = 1 To 10
& & Range(&A& & I) = &1&
Next I& &
& & 'Range(&A2&).Select
End Sub复制代码步骤四、如果需要循环内的单元格数据会变化，代码修改如下Sub Macro3()
Dim I As Integer
For I = 1 To 10
& & Range(&A& & I) = I
Next I& &
End Sub复制代码详见如下动画
如何在录制宏的代码中使用循环语句.gif (153.64 KB, 下载次数: 31)
06:31 上传
新鲜人, 积分 1, 距离下一级还需 9 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
好象是这样，加强练习
站长推荐 /1
40集公式入门动画教程，一天带你打好公式的基础。
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by如何用VB在Excel里实现循环_百度知道
如何用VB在Excel里实现循环
单元格E1中的数值会因每次按F9键而变化，我想把每次变化得到的数值依次赋给单元格I1～I4000，我的VB语句如下：SubMacro1()''Macro1Macro''DimnAsIntegerForn=1To4000Step1Range(&E1&)...
单元格E1中的数值会因每次按F9键而变化，我想把每次变化得到的数值依次赋给单元格I1～I4000，我的VB语句如下：Sub Macro1()'' Macro1 Macro''
Dim n As Integer
For n = 1 To 4000 Step 1
Range(&E1&).Select
Selection.Copy
Range(Cells(I, n)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
NextEnd Sub结果运行时提示说“应用程序定义或对象定义错误”。请问如何修改以上程序？逐语句调试时，被高亮的语句是“Range(Cells(I, n)).Select ”，我不知道如何选定第I列第n行（n为程序中定义的n）的单元格，修改为“Range(&In&).Select ”也不对，提示说“方法'Range'作用于对象'_Global'时失败”，修改为“Cells(I, n).Select”也不对，提示仍然是“应用程序定义或对象定义错误”。另外，由于单元格E1中含有公式，为了实现只将E1中的数值复制到选定的单元格，所以写了：Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False （这些语句不是我写的，是通过录制宏得到的。）
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
qad1103知道合伙人
采纳数：510
获赞数：1291
Range(Cells(I, n)).Select 改成range(&I& & n).select当然建议你用楼上的方法,不过楼上的对初学者来说有点难度.从录制宏学起是个不错的方法,那么应该掌握range(&I& & n).select这种写法.
home知道合伙人
采纳数：645
获赞数：3022
不用那么麻烦,也就是说不用复制,赋值就可以了. 另外,公式里有错误应该是Range(Cells(n, 9),Cells(n, 9)).Select Sub Macro1() ' ' Macro1 Macro ' ' Dim n As Integer For n = 1 To 4000 Step 1 Cells(n, 9).Value2 = Range(&E1&).Value2 Next End Sub
hswwf知道合伙人
采纳数：588
获赞数：3111
Sub Macro1() Dim n As Integer For n = 1 To 4000 Cells(n, 12) = Cells(1, 5) Next End Sub --------------------- 就这一点代码就够了。 --------------- 你的程序里有错误应该是 Range(Cells(n, 12),Cells(n, 12)).Select 或
range(&l&&n).Select
chenxfsoft知道合伙人
chenxfsoft
采纳数：924
获赞数：1206
不用selectFor n = 1 To 4000cells(1,n) =nnext即可
其他1条回答
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。