1樓：匿名使用者
你是要p、w、ad列對應行的單元格出現反斜線？如果是，可以試試下面的sub backslash()
dim aline as integer
aline = 1
do until len(range("i" & aline)) < 1
if range("i" & aline) = 7 thenrange("q" & aline & ",w" & aline & ",ad" & aline).select
selection.borders(xldiagonaldown).linestyle = xlcontinuous
end if
aline = aline + 1
loop
end sub
2樓：匿名使用者
set mydocument = worksheets(1)with mydocument.shapes.addline(10, 10, 250, 250).line
.dashstyle = msolinedashdotdot.forecolor.rgb = rgb(50, 0, 128)end with
excel vba中，如何實現當a列中的資料，1158開頭或555開頭或字元長度為7時，d列相對應的行，顯示值為p
3樓：匿名使用者
sub test()
for r = 1 to range("a65536").end(xlup).row
tmp = range("a" & r)
if left(tmp, 4) = "1158" or left(tmp, 3) = "555" or len(tmp) = 7 then
range("d" & r) = "p"
end if
next
end sub
4樓：
函式不行？
d1=if(or(--left(a1,4)=1158,--left(a1,3)=555,len(a1)=7),"p","")
下拉公式
用excel vba:當第1列，第i行的內容在第3列第j行出現時，就將第4列，第j行
5樓：匿名使用者
if條件寫錯了
是cells(i,1)=cells(i,3)
6樓：
sub 查詢()
dim i%, j%
for i = 1 to range("a65536").end(xlup).row
for j = 1 to range("c65536").end(xlup).row
if cells(i, 1) = cells(j, 3) thencells(i, 2) = cells(j, 4)end if
next
next
end sub
excel中vba的**，判斷是否等於某值做整行刪除：
7樓：眯住眼串針
vba刪除行
通常是從下往上查詢目標值進行刪除
這樣才會不會誤刪
sub test()
for i = 2000 to 1 step -1if range("aq" & i).value = "0" or range("aq" & i).text = "#ref!
" then
rows(i & ":" & i).delete shift:=xlup
end if
next
end sub
8樓：匿名使用者
增加一個或條件，取文字值，即可
for i = 1 to 2000
if range("aq" & i).value = "0" or range("aq" & i).text = "#ref!" then
rows(i & ":" & i).delete shift:=xlup
i = i - 1
end if
next
end sub
9樓：
if range("aq" & i).value = "0" && range("aq" & i).value = "#ref" then
10樓：
你這個問題應該想辦法不要出現#ref!才是正道
vba excel如何在工作表區域內查詢某個值，發回這個值所在的行號、列號
11樓：平陽虎
sub 查詢()
for each rng in range("a1:d3")if rng = 7 then
a = rng.row
b = rng.column
end if
next
msgbox "行號為
專" & a & "-" & "列號
屬為" & b
end sub
12樓：匿名使用者
sub aa()
dim a as range
for each a in range("a1:d3")if a.value = 7 then
msgbox "a=" & a.row & " , b=" & a.column
end if
next
end sub
excel某一列單元格為某值時自動隱藏該行，求教vba** 5
13樓：繩碧蓉功英
excel隱藏整列或者整行。
巨集**如下
隱藏b列
sub 隱藏指定工作表的指定列()
sheet1.columns("b:b").entirecolumn.hidden = true
end sub隱藏2行
sub 隱藏指定工作表的指定行()
sheet1.rows("2:2").entirerow.hidden = true
end sub
用excel的vba.如下圖所示，程式設計實現把一列中的資料，按每行n個資料的方 5
14樓：
下面的舉例才重要，lz怎麼反倒不寫了
9101112
這樣還是
9101
用excel的vba.如下圖所示，程式設計實現把一列中的資料，按每行n個資料的方
15樓：
還可以在**中優化下，現在看起來有點亂
16樓：匿名使用者
可以的，這個用vba可以實現，用陣列即可。
17樓：萬年金剛鑽
其實這個需求，不一定需要vba，公式就可以
sql中如何去除值為null的列
1 建立測試表，含三個欄位 create table ckx test null id number,val1 varchar2 20 val2 varchar2 20 2 插入資料，兩列有值，一列為空 insert into ckx test null id,val1,val2 select st...
閱讀以下程式，當輸入資料的形式為 12,34，正確的輸出結果為
雲中花蕾 當輸入資料的形式為 12，34，正確的輸出結果為不確定值，因為輸入的格式中沒有逗號，所以結果就不一定。計算機程式執行於電子計算機上，滿足人們某種需求的資訊化工具。為了使計算機程式得以執行，計算機需要載入 同時也要載入資料。從計算機的底層來說，這是由高階語言 轉譯成機器語言而被cpu所理解，...
已知英文字母I的ascii值為49H，那麼字元K的ascii
ascii 碼使用指定的7 位或8位二進位制陣列合來表示128 或256 種可能的字元。標準ascii 碼也叫基礎ascii碼，使用7 位二進位制數 剩下的1位二進位制為0 來表示所有的大寫和小寫字母，數字0 到9 標點符號，以及在美式英語中使用的特殊控制字元。其中 已知英文字母i的ascii值為4...