涛鹭
vba就是vb的延伸
反正只要知道表格的问题我们都能解决
x^e
就是些脚本。。。随便看看就知道啥意思
涛鹭
有节课说要把表格设密码，好像没讲，我是自己做出来了
哈全
涛鹭
qwer
测试密码用，表格1的按钮别点，要出错，我没调过！
knilsa Meh tgiM
弄个论坛啥低吧
X坛 实在人数限制太少
海的萝菠
寒假太无聊，来学学vba羡方吾-庆重
暂时没有千民坛名额，过两个月应该就会有
naJ
@山东 amb @山东 amb 就是办公一般会用到那些嘛，学生党一个，想学一下，不知道侧重点在哪
bm a东山
能掌握王老师讲的，我的工作足够用了可能我的工作用的不多 yrets'im
cells(x,x)=cells(y,y)+cells(z,z)
在执行这段代码的时候,计算机是不是得从表里,看cells(y,y),cells(z,z)的值是几,然后把两个值分别读进内存,运行计算,然后把内存里的值再写入当前表的cells(x,x)的位置?
凯孙林吉
Sub text1()
Dim i As String
i = ThisWorkbook.Path & "/" & "担当者.txt"
Range("k4:m500") = ""
Open i For Input As #1
Dim row, col As Integer
row = 4
Do While Not EOF(1)
Dim a As String
Dim tmp As Variant
Line Input #1, a
Cells(row, 11) = a
tmp = Split(Cells(row, 11), ",")
Cells(row, 11) = tmp(0)
Cells(row, 12) = tmp(1)
Cells(row, 13) = tmp(2)
row = row + 1
Loop
Close #1
End Sub
涛鹭
你读到文件哪结束？
Eof1?
兄弟
知道你道哪了
tmp(0)，永远都是0
框号里也根本不需要
就是一个变量
那么还有 一种可能，你的数据“，”后面没东西了
worromoT丶丨roF
大佬们，我按照做的怎么运行不了求帮助worromoT丶丨roF
什么意思
不懂呀
刚学vba
worromoT丶丨roF
我就是按照王佩丰视频那个写的都一样，但是我这个运行不了
涛鹭
先定义i as integer
然后把单元格的单词改成range
for 如果到着来，那么 后面加上 step-1
涛鹭
这个如果顺着循环要出错
好没
万一两个空那么下面一行就删除不了
worromoT丶丨roF
[$$现金]请使用新移动端YY查收红包。
多谢
worromoT丶丨roF
大哥，我qq一共5快，不知道有潜水那么多
羡方吾-庆重
可以发指定人吧
红包尽量私发，坛中发红包容易打扰人。
☄��.��巧倂�ˇ�romA
[$$现金]请使用新移动端YY查收红包。
涛鹭
你这里这么多那里又那么少蓝幽谷空
这一块数据每一个部门选择性粘贴，转置 过来的而且这个表格是数据汇总涛鹭
表
截个图看下表
工作簿里是不是很多的部门
?
然后把这些部门全合在一张表里，是吧
涛鹭
是不是这个意思
然后也那几个格里的数据加起来是吧
蓝幽谷空
数据我都汇总好了就是这样了
