excel的excel vba代码码求助

来源：蜘蛛抓取(WebSpider) 时间：2016-11-22 06:02 标签： excel vba颜色代码
查看: 1716|回复: 10
[已解决]求帮助，关于《表格数据自动显示在TextBox1》
本帖最后由 小蚊子 于
16:25 编辑
如何能在表格里的数据自动显示在 TextBox1 TextBox2。
进来不会，也帮帮兄弟顶一下、谢谢。
16:02 上传
点击文件名下载附件
18.3 KB, 下载次数: 36
hwc2ycy发布于
Private Sub UserForm_Initialize()
& & Me.TextBox1.Text = Sheet1.[a1]
& & Me.TextBox2.Text = Sheet1.[j3]
End Sub
复制代码这永远会是SHEET1的A1,J3。
股网千王 发表于
谢谢& && && &
窗体模块内的代码Private Sub UserForm_Initialize()
& & Me.TextBox1.Text = [a1]
& & Me.TextBox2.Text = [j3]
End Sub
复制代码
hwc2ycy 发表于
窗体模块内的代码
谢谢您的答案，要求是 在指定的文件夹 比如这个表 Sheet1 的A1&&J3&&这样
我解决了 谢谢
&&&本楼为最佳答案&&&
Private Sub UserForm_Initialize()
& & Me.TextBox1.Text = Sheet1.[a1]
& & Me.TextBox2.Text = Sheet1.[j3]
End Sub
复制代码这永远会是SHEET1的A1,J3。
hwc2ycy 发表于
窗体模块内的代码
谢谢 我解决了&&
hwc2ycy 发表于
这永远会是SHEET1的A1,J3。
在一次麻烦您问一下，Label1&&也可以这样显示吗& &B2的显示在&&Label1？
小蚊子 发表于
在一次麻烦您问一下，Label1&&也可以这样显示吗& &B2的显示在&&Label1？
|||Excel精英培训
Powered by查看: 7074|回复: 11
求助：2007颜色代码
颜色.jpg (16.45 KB, 下载次数: 14)
11:52 上传
请问，上面的颜色位置的数字代码是什么，想做一个属于自己的颜色模板，可是不会弄来着，能帮帮我吗？谢谢~
米苏,芳主不是分享过两个拾色器吗
不是的，颜色我全提取出来了，我想要的是弄成像上面的模板，就不要每次都要输入RGB的数字了。2003有一串代码的，在2007里运行一直出错来着
这样可以吗？苏苏Sub tt()
& & Application.ScreenUpdating = False
& & Application.Dialogs(xlDialogFontProperties).Show
& & MsgBox ActiveCell.Font.Color
& & ActiveCell.Font.Color = xlNone
& & Application.ScreenUpdating = True
End Sub复制代码
本帖最后由 提拉米苏08 于
13:16 编辑
问题1：我想提取颜色面板上的颜色位置代码，在03里是ActiveWorkbook.Colors(1-56），在07里是多少呀？
问题2：我想把部分颜色修改成我想要的颜色，做为自己的颜色面板，怎么写代码呀？
这个是2007里新增的吧,好象不能变更,颜色号是可以取得.
感觉是不可以改,但是我的与你的好就不一样.
image001.png (69.92 KB, 下载次数: 13)
13:18 上传
用宏表函数可以把颜色代码提取的来的
吕?布 发表于
这个是2007里新增的吧,好象不能变更,颜色号是可以取得.
感觉是不可以改,但是我的与你的好就不一样.
因为我们选 的主题不一样
那也许只能通过新建主题想办法了,内置的应该是没办法改的&
Themecolor
本帖最后由 nothingwmm 于
13:42 编辑
提拉米苏08 发表于
问题1：我想提取颜色面板上的颜色位置代码，在03里是ActiveWorkbook.Colors(1-56），在07里是多少呀？
答1. 2007里也是56个:
Cells(1).Interior.ColorIndex = 56复制代码
答2. 一下可以随意设置你的颜色：
Cells(1).Interior.Color = 复制代码
小代码：你自己需要啥颜色慢慢选吧
Sub test()
For i = 1 To 1000
Cells(i).Interior.Color = i
Next
End Sub
复制代码
或者：
Sub test()
For i = 1 To 1000
Cells(i).Interior.Color = Application.WorksheetFunction.RandBetween(1, 1000000)
Next
End Sub复制代码
QQ截图未命名.jpg (29.55 KB, 下载次数: 18)
13:40 上传
|||Excel精英培训
Powered by查看: 87|回复: 6
阅读权限20
在线时间 小时
查找关键材料
请看附件。
(8.62 KB, 下载次数: 7)
17:00 上传
点击文件名下载附件
阅读权限50
在线时间 小时
没写VBA，写了个公式。
=IFERROR(LOOKUP(9^9,FIND($B$2:$B$4,A2),$B$2:$B$4),&&)&&数组公式。
阅读权限70
在线时间 小时
阅读权限70
在线时间 小时
阅读权限90
在线时间 小时
Dim Arr, Arr2, i, j, r, s
Sheet1.Activate
[j2:j1000].ClearContents
r = [a65536].End(3).Row
Arr2 = Range(&b2:b& & r)
Arr = [a1].CurrentRegion
For i = 2 To UBound(Arr)
& & For j = 1 To UBound(Arr2)
& && &&&If InStr(Arr(i, 1), Arr2(j, 1)) & 0 Then
& && && && &s = s + 1
& && && && &Cells(i, s) = Arr2(j, 1)
& && &&&End If
阅读权限90
在线时间 小时
附件回传，请核对结果是否正确&&&&&&&&&&
19:09 上传
点击文件名下载附件
11.11 KB, 下载次数: 0
阅读权限20
在线时间 小时
十分感谢。。。。。。。。。。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 excel vba颜色代码 的文章

 

随机推荐