Excel三個下拉互斥

2021-10-04 23:20:45 字數 1643 閱讀 3878

描述: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 三個毛...