返回列表 上一主題 發帖

數值填入自動產生矩形圖案(可用巨集做出來嗎)

霸氣走全身
　暱稱: 加菲貓

中學生Rank: 2

帖子
36 
主題
16 
精華
0 
積分
177 
點名
0  
作業系統
Xp 
軟體版本
offICE2003 
閱讀權限
20 
性別
女 
註冊時間
2010-8-23 
最後登錄
2021-7-20 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2010-10-20 23:48 | 只看該作者

數值填入自動產生矩形圖案(可用巨集做出來嗎)

請問
如我在空格裡填入數值會在我設定儲存格裡自動產生矩形圖案且TG編號圖案會有間隔5應該說是0.05CM)
不知道這樣可行嗎
好像是很難的樣子
或可產生圖案出來，我在自己自動排列
如附件
1.自動產生矩形圖案         
2.自動  自動對齊            
3.數值填入 產生大小      
(填入長300 等於高3 cm)      
(填入寬100 等於寬1 cm)

以上請各位協助幫忙了
謝謝你了

數值自動產生矩形圖案.rar (4.33 KB)

收藏 分享

霸氣走全身
　暱稱: 加菲貓

中學生Rank: 2

帖子
36 
主題
16 
精華
0 
積分
177 
點名
0  
作業系統
Xp 
軟體版本
offICE2003 
閱讀權限
20 
性別
女 
註冊時間
2010-8-23 
最後登錄
2021-7-20 
4#
發表於 2010-10-23 02:09 | 只看該作者
回復 3# et5323


謝謝你的指導及製作~~
真想不到這樣也可以
受益良多
For Each rng In Range("d10:d11,d15:J16")  
改成 For Each rng In Range("d10:d11,d15:d16")
就好像不限制圖案數量了(少填TG長寬數據)
就可以跑出來了^^
謝謝你喔

TOP

et5323

帖子
128 
主題
13 
精華
1 
積分
118 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
50 
性別
男 
來自
四川成都邛崃 
註冊時間
2010-9-13 
最後登錄
2017-5-12 
3#
發表於 2010-10-21 16:47 | 只看該作者
完善一下:

MsgBox "存在空白、0、或非数字单元格!", vbCritical
j數值自動產生矩形圖案.rar (10.93 KB)

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2010-10-21 11:27 | 只看該作者
沒有認真研究點對公分的換算，大略個數字吧。
數值自動產生矩形圖案.rar (10.93 KB)

TOP

        靜思自在 : 發脾氣是短暫的發瘋。
返回列表 上一主題