[excel]给选中的单元格加双引号
上一篇 /
下一篇 2008-05-09 22:24:18
/ 个人分类:excel
51Testing软件测试网u
m2j*ORU#b5P^[:g-TSub Macro3()
5_`!o0X@a7e
|/jZS0'51Testing软件测试网k6Ff:~#` h/{$@+idBv
' Macro3 Macro
,i;[ec-o9@q|0' 宏由 MC SYSTEM 录制,时间: 2008-5-851Testing软件测试网$cQR(Bt*m
'51Testing软件测试网G-L_n8^l3fw
' 快捷键: Ctrl+c51Testing软件测试网%w%q[A Cf1x$DE
'51Testing软件测试网 iT"J5tjN
Dim string1 As String51Testing软件测试网:h3L/H[;xr5D
string1 = ActiveCell.Value51Testing软件测试网:FJN9W&K^y
string1 = Chr(34) & string151Testing软件测试网Cc$PA,|A!u
string1 = string1 & Chr(34)51Testing软件测试网H `l2th-D8k/[
ActiveCell.Value = string151Testing软件测试网9a.i9B3\.K
I
@
i,zbaj(Cy3n
x3n+dRX0End Sub51Testing软件测试网5QU&e,Mh
ORd
Sub Macro4()51Testing软件测试网n8v~sHFsK X}5}
'
pT Yay2`7|0' Macro4 Macro51Testing软件测试网n*LA4w J.d4?K
' 宏由 MC SYSTEM 录制,时间: 2008-5-8
Z+zpbE3pO O;D!\0'
FX)?,xS eq{0' 快捷键: Ctrl+d
I$j0^k.`0'51Testing软件测试网2Q7UX!J
Q];]R Q
51Testing软件测试网dDHYlI k Dim Rng As Range
}
L-P$F#B)@j:j6e0 For Each Rng In Application.Selection
1}rk9rMbk0 Rng.Select
CH-[&f3Y#K)sg&rE0 Application.Run "test2.xls!Macro3"
is3G?Xk:ct0 Next51Testing软件测试网Z#^z7I4l
51Testing软件测试网;K o4U c*gZ aMz
"}W4e3es?(j8?t0End Sub51Testing软件测试网
Vtbg/MwZ
51Testing软件测试网)K_"Z ql
收藏
举报
TAG:
excel