vba程式集
(第3輯)
**********************************
程式11(查詢)
[程式功能] 將數值轉換為文字
[程式作用] 搜尋選中的列，將數值轉變為文字。如果只選擇了乙個單元格，那麼**僅在活動單元格中操作。不能對公式單元格和空單元格操作。
[程式擴充套件] 可以將程式**1和程式**2略加改動，將乙個字元附加到所菜單元格的開頭。如將cell.value = "'" & cell.value換成cell.value="/」i」&cell.value，則在所菜單元格開頭新增字元「i」，即可統一單元格開始形式。
[程式**1]
sub" 數值轉換為文字1() '通過新增'號
dim cell as range
for each cell in selection
if not cell.hasformula then
if not isempty(cell) then
cell.value = "'" & cell.value
end if
end if
next
end sub
[程式**2]
sub 數值轉換成文字2() '只對數字單元格進行操作
dim cell as range
for each cell in selection
if not cell.hasformula then
if not isempty(cell) then
if isnumeric(cell) then
cell.value = "'" & cell.value '可根據需要變換字元
end if
end if
end if
next
end sub
[程式**3]
sub 數值轉換為文字3() '通過格式
dim cell as range
for each cell in selection
if not cell.hasformula then
if not isempty(cell) then
selection.numberformatlocal = "@"
end if
end if
next
end sub
uploadfiles/2006-6/623592706.rar
uploadfiles/2006-6/623661810.rar
uploadfiles/2006-6/623332769.rar
uploadfiles/2006-6/623380560.rar
by fanjy in 2006-6-23
VBA程式集 第4輯
vba程式集 第4輯 for r lastrow to 2 step 1 if ucase cells r,1 value 留下 then rows r delete 可以根據實際情況將條件進行更改,以實現需求.如更改列,或比較的值等 next r 示例文件見uploadfiles 2006 6 6...
VBA語句集100句 第1輯
vba語句集100句 第1輯 我將學習vba過程中常用的語句進行了歸納,希望能對excel愛好者和vba初學者有所幫助.vba語句集 第1輯 定製模組行為 1 option explicit 強制對模組內所有變數進行宣告 單元格 單元格區域 32 activecell.currentregion.s...
第 3 章 共享程式集和強命名程式集
clr 支援兩種程式集 弱命名程式集 weakly named assembly，即無簽名的程式集 和 強命名程式集 strongly named assembly，即帶簽名的程式集 兩者程式集結構完全相同。兩者區別在於，強命名程式集使用發布者的公鑰 私鑰進行了簽名。這一對金鑰允許對程式集進行唯一性...