1樓：
qq251987289
function moban(range1 as range, quyu as range) as single '求範圍值
if range1 < 0.8 then
moban = quyu.cells(1, 1)
end if
if range1 >= 0.8 and range1 <= 0.85 then
moban = quyu.cells(1, 2)
end if
if range1 >= 0.86 and range1 <= 0.9 then
moban = quyu.cells(1, 3)
end if
if range1 >= 0.91 and range1 <= 0.95 then
moban = quyu.cells(1, 4)
end if
if range1 >= 0.96 and range1 <= 1 then
moban = quyu.cells(1, 5)
end if
if range1 >= 1.01 and range1 <= 1.5 then
moban = quyu.cells(1, 6)
end if
end function
function ok(rang1 as range, quyu as range) as string '低高中判斷,range1為傳進ok值,判斷ok所在區域
dim xuhao as integer
for i = 1 to 3
if rang1 = quyu.cells(1, i) then
xuhao = i
end if
next
if xuhao = 1 then
ok = range(cells(rang1.row, 21), cells(rang1.row, 26)).address
end if
if xuhao = 2 then
ok = range(cells(rang1.row, 27), cells(rang1.row, 32)).address
end if
if xuhao = 3 then
ok = range(cells(rang1.row, 33), cells(rang1.row, 38)).address
end if
end function
function no(rang1 as range, quyu as range) as string '低高中判斷,range1為傳進no值,判斷ok所在區域
dim xuhao as integer
for i = 1 to 3
if rang1 = quyu.cells(1, i) then
xuhao = i
end if
next
if xuhao = 1 then
no = range(cells(rang1.row, 3), cells(rang1.row, 8)).address
end if
if xuhao = 2 then
no = range(cells(rang1.row, 9), cells(rang1.row, 14)).address
end if
if xuhao = 3 then
no = range(cells(rang1.row, 15), cells(rang1.row, 20)).address
end if
end function
function abc() as integer
a = "$a$1"
abc = range(a)
end function
2樓：匿名使用者
太亂了亂七八糟的
如果兩個數值相同 就像0.88那個值
我怎麼知道那個對ok值哪個對no值
浪費我時間
excel如何用vba實現多重選定區域的貼上，即把用ctrl+；選定複製後的一列資料貼上在不連續的一列單元格中
3樓：匿名使用者
sub macro1()
dim ar as range
const col = "h" '複製到的列for each ar in selection.areasar.copy range(col & ar.
cells(1, 1).row())
next ar
end sub
利用range物件的areas屬性，areas集合中的每個元素都是一個range物件，它對應多重區域中的每一個連續的區域。
ar.copy range(col & ar.cells(1, 1).row()) 這段**是複製每一個連續區域到指定列（h）相應的行。
4樓：excel辦公實戰
union 可以實現，具體367031423 企鵝解決吧
5樓：匿名使用者
ctrl+cc調出剪下板用著多好用啊
excel vba判斷工作表是否存在請教
6樓：依然特雷西
1、首先我們在工作表中，點選選單欄開發工具，在其中的工具欄裡，點選visual basic,然後進入vba介面，如下圖。
2、然後我們在vba介面裡，點選選單欄插入，在其中的選單中，點選模組，具體操作方法如下圖。
3、我們然後再在**的編輯視窗中，輸入**再然後點選vba視窗下工具欄中的執行按鈕，方法如下圖。
4、最後我們點選vba視窗下工具欄中的執行按鈕，接下來會彈出存在或不存在的對話方塊，這就是具體的操作方法。
7樓：慶年工坊
如果不用錯誤跳轉語句，只能遍歷所有工作表，比對錶名，**如下：
sub 判別工作表是否存在()
dim i as integer
for i = 1 to sheets.countif sheets(i).name = "abc" thenmsgbox "工作表abc已存在！"
exit for
end if
next
end sub
8樓：
sub test()
dim sht as worksheet
dim sht_exist as booleansht_exist = false
for each sht in thisworkbook.worksheets
if sht.name = "指定工作表名稱" then sht_exist = true: exit for
next sht
msgbox ("工作表" & iif(sht_exist, "", "不") & "存在")
end sub
9樓：姓王的
1、不是所有錯誤都能起作用。
2、用迴圈檢測是否已有「彙總」表，沒有則新增：
for i=1 to sheets.countif sheets(i).name="彙總" then exit sub
next
sheets.add……
10樓：匿名使用者
on error resume next
if not sheets("abc") is nothing then
if err.number <> 9 then msgbox "存在"
err.clear
end if
excel vba中，如何判斷資料型別？
11樓：小丁創業
方法和詳細的操作步驟如下：
1、第一步，同時按「
win + r」鍵，在「執行」的對話方塊中輸入「 excel」，然後按enter鍵開啟新的excel文件，見下圖，轉到下面的步驟。
2、第二步，執行完上面的操作之後，依次單擊「開發工具」-->「
visual basic」工具欄，見下圖，轉到下面的步驟。
3、第三步，執行完上面的操作之後，在左側工程視窗中雙擊「
sheet1」以開啟「 sheet1」**編輯視窗，見下圖，轉到下面的步驟。
4、第四步，執行完上面的操作之後，分別選擇「worksheet」和「
selectionchange」，下面將自動生成相應的過程塊**，見下圖，轉到下面的步驟。
5、第五步，執行完上面的操作之後，在此過程中編寫生成**，見下圖紅框標識的部分，轉到下面的步驟。
6、第六步，執行完上面的操作之後，返回到excel視窗並測試**是否可以正確執行，可以看到執行成功，見下圖。這樣，就解決了這個問題了。
12樓：方括號
用typename()函式可以判斷。
比如typename(i)="single" 就是單精度浮點數
typename(i)="string" 就是字串
excel vba如何對當前工作表判斷
13樓：匿名使用者
不需要使用vba，直接引用就可以了。
至於具體的公式就需要你根據具體的要求要寫了。
至於變色只需要使用條件書式就成。
14樓：
表單？表單是資料庫裡的，親助理用詞好嗎/
excel vba的錯誤6，溢位問題
15樓：廖晴畫
dim語句中的integer都改為long，因為integer正數最大為32767
另外，大量迴圈應該考慮將**讀入陣列，用陣列參與迴圈，提高速度。
比如使用語句：a1=worksheets("樣本1").usedrange
則生成a1陣列，a1(i,1)就相當於cells(i,1)另外可以學習vba的字典法，進一步提高匹配速度這樣可以麼？
excel,vba中，如何判斷變數是否包含特定字串
16樓：匿名使用者
vba 中可以使bai用 這兩個函式du 函式啊……也可以直接使用zhi 另外一種 like 函式…dao…如：if a like "*aa*" thenmsgbox "a中有版aa 這個
字串"
else
msgbox "a中沒權有aa 這個字串"
end if
或者 使用 instr 這個函式計算 也可以……
17樓：匿名使用者
if instr(1,a,"aa") >0 thenmsgbox("a 包含 'aa'")
else
msgbox("a 不包含 'aa'")
end if
如果在excel vba中判斷a列中的空白單元格，遇到後就終止程式
18樓：綠衣人敲門
在工作表名稱上點右鍵,選檢視**,貼上下面的**sub 檢查空單元格()
dim rng as range, arr()for each rng in range("a1:a30")if rng = "" then
n = n + 1
redim preserve arr(1 to n)arr(n) = rng.address(0, 0)end if
next
msgbox "a1:a30有" & n & "個空單元格," & vbcrlf & "分別是:" & join(arr, ",")
end sub
sub 檢查空格()
dim rng as range, arr()for each rng in range("a1:a30")if instr(rng, " ") <> 0 thenn = n + 1
redim preserve arr(1 to n)arr(n) = rng.address(0, 0)end if
next
msgbox "a1:a30包含空格的單元格有" & n & "個," & vbcrlf & "分別是:" & join(arr, ",")
end sub
高分懸賞關於交通事故死亡賠償，高分懸賞 （很急！！！ 交通事故責任劃分以及賠償問題
交通事故賠償金 死亡 當地年城鎮 農村人均可支配收入 20年 喪葬費 精神損害賠償金 財產損失 撫養費 精神損害賠償的，如果死亡，那麼可以得到50000 100000元的賠償 對於免去刑事責任是不允許的，當然，這是在公安立案之後了。如果立案之前還是可以運作的。繼父應得 總的賠償數額的1 2 剩餘賠償...
緊急求救！大家幫忙想個辦法吧！很急啊
你在小區貼張告示說這是名貴貓種.看有人領養不.或者打114查詢你們當地寵物救助站的 把貓兒送那去 你真有愛心啊,難得,你媽堅決反對別讓你媽不高興.給它點吃的吧,沒幾天它大了點.生存的能力很強,你就不用擔心啊.或須有人會要的.等等.你把小貓放到幼兒園門口,那裡的老師會把她們撿回去給小朋友們玩的,上帝不...
去海關還是去銀行工作高分求解答很急
做海關必須懂的如下知識 1.進出口業務知識,法律法規 2.海關業務知識及法律法規 3.海關操作實務 審單 查驗 關稅 放行等等 4.商檢業務知識及法律法規 整體上來說做海關比較好，整體年終獎金也多點。可是比銀行要累。有的海關也有出船的你自己先多瞭解大概是做什麼的在說吧 看是不是正式編制了 實際如果都...