Results of 1 - 1 of about 37655 for IF (0.007 sec.)
- [[20070330224027]]
- #score: 1592
- @digest: 5c6112a4b42320d92db75b2367f2eeb5
- @id: 29836
- @mdate: 2007-03-30T22:33:51Z
- @size: 2487
- @type: text/plain
- #keywords: objx (14761), checkbox36 (7748), checkbox40 (7748), checkbox39 (7748), checkbox38 (7748), checkbox37 (7748), checkbox33 (7748), checkbox35 (7748), checkbox34 (7748), checkbox18 (7748), checkbox21 (7748), checkbox22 (7748), checkbox24 (7748), checkbox25 (7748), checkbox27 (7748), checkbox28 (7748), checkbox29 (7748), checkbox32 (7748), checkbox31 (7323), checkbox16 (7213), checkbox23 (7213), checkbox30 (7213), checkbox19 (7213), checkbox17 (7213), checkbox26 (7107), checkbox20 (6907), checkbox15 (6633), checkbox14 (6386), checkbox13 (6386), checkbox12 (5958), checkbox11 (5832), checkbox10 (5802)
- 『長すぎます 何とかしてください』（ctate）
If CheckBox1 = True Then a1 = "01" If CheckBox2 = True Then a2 = "02" If CheckBox3 = True Then a3 = "03" If CheckBox4 = True Then a4 = "04" If CheckBox5 = True Then a5 = "05" If CheckBox6 = True Then a6 = "06" If CheckBox7 = True Then a7 = "07" If CheckBox8 = True Then a8 = "08" If CheckBox9 = True Then a9 = "09" If CheckBox10 = True Then a10 = "10" If CheckBox11 = True Then a11 = "11" If CheckBox12 = True Then a12 = "12" If CheckBox13 = True Then a13 = "13" If CheckBox14 = True Then a14 = "14" If CheckBox15 = True Then a15 = "15" If CheckBox16 = True Then a16 = "16" If CheckBox17 = True Then a17 = "17" If CheckBox18 = True Then a18 = "18" If CheckBox19 = True Then a19 = "19" If CheckBox20 = True Then a20 = "20" If CheckBox21 = True Then a21 = "21" If CheckBox22 = True Then a22 = "22" If CheckBox23 = True Then a23 = "23" If CheckBox24 = True Then a24 = "24" If CheckBox25 = True Then a25 = "25" If CheckBox26 = True Then a26 = "26" If CheckBox27 = True Then a27 = "27" If CheckBox28 = True Then a28 = "28" If CheckBox29 = True Then a29 = "29" If CheckBox30 = True Then a30 = "30" If CheckBox31 = True Then a31 = "31" If CheckBox32 = True Then a32 = "32" If CheckBox33 = True Then a33 = "33" If CheckBox34 = True Then a34 = "34" If CheckBox35 = True Then a35 = "35" If CheckBox36 = True Then a36 = "36" If CheckBox37 = True Then a37 = "37" If CheckBox38 = True Then a38 = "38" If CheckBox39 = True Then a39 = "39" If CheckBox40 = True Then a40 = "40" Cells(11, 18).Value = a1 & a2 & a3 & a4 & a5 & a6 & a7 & a8 & a9 & a10 _ & a11 & a12 & a13 & a14 & a15 & a16 & a17 & a18 & a19 & a20 _ & a21 & a22 & a23 & a24 & a25 & a26 & a27 & a28 & a29 & a30 _ & a31 & a32 & a33 & a34 & a35 & a36 & a37 & a38 & a39 & a40 ---- CheckBoxはどこにあるのでしょうか? ↓のコードはシート配置の前提です。(ROUGE) '---- Dim objX As OLEObject, ss As String For Each objX In Me.OLEObjects If objX.Name Like "CheckBox*" Then If objX.Object.Value Then ss = ss & _ Format(Replace(objX.Name, "CheckBox", ""), "00") End If Next Cells(11, 18).Value = "'" & ss ------------------- ユーザーホームにあります ---- Dim i As Long Dim s As String For i = 1 To 40 If Me.Controls("CheckBox" & i).Value Then s = s & Format(i, "00") Next Cells(11, 18).Value = "'" & s '(ROUGE) ---- ありがとうございました。... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/200703/20070330224027.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97040 documents and 608046 words.
訪問者：