EXCEL VBA CHECKBOX 多選回傳值到工作表中的疑問

AoLin

AoLin
個人積分：0分
文章編號：63592558

0分

樓主

2017-03-09 23:44

已過期，刪除。

2017-03-09 23:44 發佈

文章關鍵字 EXCEL VBA CHECKBOX 工作表疑問

snare

snare
個人積分：3051分
文章編號：63593463

3051分

2樓

2017-03-10 2:02

程式碼是錯的
一、do loop 用法錯誤
二、變數y不見了
重寫比較快

Rows("2:4").ClearContents
r = 2: c = 1

For i = 1 To 6
If Controls("checkbox" & i).Value = True Then
Cells(r, c) = Controls("checkbox" & i).Caption
If r = 4 Then
c = c + 2: r = 0
End If
r = r + 2
End If
Next

AoLin

AoLin
個人積分：0分
文章編號：63597642

0分

樓主

2017-03-10 12:11

snare, 你好~

把程式碼改成這樣後
Private Sub CommandButton1_Click()
Dim r, c, i As Integer
Rows("2:4").ClearContents
r = 2: c = 1
For i = 1 To 6
If Controls("CheckBox" & i).Value = True Then Cells(r, c).Value = Controls("CheckBox" & i).Caption
If r = 4 Then
c = c + 2: r = 0
End If
r = r + 2
End If
Next

Unload Me
End Sub

---------------------------
會出現
有END IF , 卻沒有IF , 請問我哪裏放錯了嗎?

如選B,D,F , 如何照樣在A2 開始放結果?

chiway0331

chiway0331
個人積分：48分
文章編號：63599126

48分

4樓

2017-03-10 13:58

AoLin wrote:
snare, 你好...(恕刪)

If Controls("CheckBox" & i).Value = True Then Cells(r, c).Value = Controls("CheckBox" & i).Caption

這個最後沒有 Then

snare

snare
個人積分：3051分
文章編號：63599265

3051分

5樓

2017-03-10 14:08

AoLin wrote:
有END IF , 卻沒有IF...(恕刪)

If Controls("CheckBox" & i).Value = True Then

Cells(r, c).Value = Controls("CheckBox" & i).Caption

這是2行程式碼

AoLin

AoLin
個人積分：0分
文章編號：63600340

0分

樓主

2017-03-10 15:22

原來這樣, 我再試試, 請問我那個要求跳儲存格的做法該如何實現?

AoLin

AoLin
個人積分：0分
文章編號：63600525

0分

樓主

2017-03-10 15:34

chiway0331 wrote:
If Controls...(恕刪)

謝謝你的指出~

AoLin

AoLin
個人積分：0分
文章編號：63602116

0分

樓主

2017-03-10 17:27

謝謝snare 大大的幫助, 問題解決了,
也麻煩各位有給意見的大大, 感謝各位