描述:excel有三個下拉列表,若選擇了其中任意乙個下拉,其他兩個均不可以在選擇。
嘗試了很多種辦法,級聯,資料有效性等等,最後都沒實現。
老大,最後用vba實現。
附上**:
private sub worksheet_change
(byval target as range)
dim r as long
dim n as integer
n =1 if target.column =
2 and target.value <
>
"" then
r = target.row
if range
("g"
& r)
.value <
>
"" then
msgbox
(" g 列已有內容"
) target =
"" exit sub
elseif range
("i"
& r)
.value <
>
"" then
target =
""msgbox
(" i 列已有內容"
) exit sub
end if
end if
if target.column =
7 and target.value <
>
"" then
r = target.row
if range
("b"
& r)
.value <
>
"" then
target =
""msgbox
(" b 列已有內容"
) exit sub
elseif range
("i"
& r)
.value <
>
"" then
target =
""msgbox
(" i 列已有內容"
) exit sub
end if
end if
if target.column =
9 and target.value <
>
"" then
r = target.row
if range
("g"
& r)
.value <
>
"" then
target =
""msgbox
(" g 列已有內容"
) exit sub
elseif range
("b"
& r)
.value <
>
"" then
target =
""msgbox
(" b 列已有內容"
) exit sub
end if
end if
end sub
三個程序互斥使用快取區問題
三個程序p1 p2 p3互斥使用乙個包含n n 0 個單元的緩衝區。p1每次用produce 生成乙個正整數並用put 送入緩衝區某一空單元中 p2每次用getodd0從該緩衝區中取出乙個奇數並用countodd0統計奇數個數 p3每次用geteven 從該緩衝區中取出乙個偶數並用counteven...
excel第三個知識點
1.test函式 text 文字對應位置,要修改的格式 2.substitute 原始文字,原始文字要替換的東西 替換成什麼的內容 3.求和快捷鍵 放在要求和的位置alt和等於同時按 4.選中整個單元格 ctrl shift 方向 5.凍結 在檢視,凍結視窗中可以進行,效果是凍結後的不管怎麼拉動都可...
漢語中「三個三個的,你認識多少?」
三個金念鑫 x n 三個水念淼 mi o 三個火念焱 y n 三個土念垚 y o 三個牛念犇 b n 三個手念掱 p 三個目念瞐 m 三個田念畾 l i 三個馬念驫 bi o 三個羊念羴 sh n 三個犬念猋 bi o 三個鹿念麤 c 三個魚念鱻 xi n 三個貝念贔 b 三個力念劦 lie 三個毛...