0

## 一個國小老師的問題?題庫如何顯示所選考題?

+====+====+===========+
|挑選|題號|題目 |
+====+====+===========+
| v | 1 |第1題的題目|
| | 2 |第2題的題目|
| v | 3 |第3題的題目|
| v | 4 |第4題的題目|
+====+====+===========+

*新增CHECKBOX控制項位置可能會因電腦不同而不正確,如不正確需自行修正
ActiveSheet.CheckBoxes.Add(0, (I * 16.5) - 16.5, 75, 0).Text = "第 " & I & " 題"

Private Sub Worksheet_Change(ByVal Target As Range)
Flag = ActiveSheet.Range("B65535").End(xlUp).Row
If Target.Value = "OK" Then
If Flag <> Empty Then
J = 1
Sheets("試卷").Range("A:A") = Empty
For I = 1 To Flag
If ActiveSheet.CheckBoxes(I).Value = 1 Then
Sheets("試卷").Range("A" & J) = ActiveSheet.Range("B" & I).Text
J = J + 1
End If
Next I
End If

ActiveSheet.Range("H1").Value = Empty
ElseIf Target.Value = "R" Then
ActiveSheet.Shapes.SelectAll
Selection.Delete
ActiveSheet.Range("A1").Select
For I = 1 To Flag
ActiveSheet.CheckBoxes.Add(0, (I * 16.5) - 16.5, 75, 0).Text = "第 " & I & " 題"
Next I
ActiveSheet.Range("H1").Value = Empty
ElseIf Target.Value <> Empty Then
MsgBox "H1欄位請輸入 OK 或 R"
ActiveSheet.Range("H1").Value = Empty
End If
End If
End Sub

```Private Sub Worksheet_Change(ByVal Target As Range)
Flag = ActiveSheet.Range("B65535").End(xlUp).Row
If Target.Value = "OK" Then
If Flag <> Empty Then
J = 1
Sheets("試卷").Range("A:A") = Empty
For I = 1 To Flag
If ActiveSheet.CheckBoxes(I).Value = 1 Then
Sheets("試卷").Range("A" & J) = ActiveSheet.Range("B" & I).Text
J = J + 1
End If
Next I
End If
ActiveSheet.Range("H1").Value = Empty
ElseIf Target.Value = "R" Then
ActiveSheet.Shapes.SelectAll
Selection.Delete
ActiveSheet.Range("A1").Select
For I = 1 To Flag

```

```                ActiveSheet.CheckBoxes.Add(0, (I * 16.5) - 16.5, 75, 0).Text = "第 " & I & " 題"
Next I
ActiveSheet.Range("H1").Value = Empty
ElseIf Target.Value <> Empty Then
MsgBox "H1欄位請輸入 OK 或 R"
ActiveSheet.Range("H1").Value = Empty
End If
End If
End Sub
```

tombo iT邦高手 1 級 ‧ 2010-10-01 17:12:28 檢舉

### 6 個回答

8
liounoon
iT邦新手 1 級 ‧ 2010-09-28 22:28:01

ycl8000 iT邦高手 1 級 ‧ 2010-09-29 08:40:39 檢舉

10
fillano
iT邦超人 1 級 ‧ 2010-09-28 14:11:08

12
cmh
iT邦新手 2 級 ‧ 2010-09-28 14:19:58

8
csyu
iT邦高手 1 級 ‧ 2010-09-28 15:39:59

cmh提到：

darktasi iT邦新手 4 級 ‧ 2010-09-28 17:45:07 檢舉

10

iT邦大師 1 級 ‧ 2010-09-28 23:56:32

http://alpha.tagbible.net/zhjp/cathy6270

1.複製 Excel 所要的欄位，如果原excel有編號的欄位，不需包括。
2.貼上述網址的表格中。
3.按跑。
4.依照自己所定的順序，點選所要的行數。
5.都挑選完成後，點選：「挑選完成，產生以tab欄位分隔」
6.產生一個依您順序選出的哪些行數，且是以 tab 分欄的頁面。
7.全選、複製。
8.打開記事本，貼上，存成一個txt。
9.Excel以匯入的方式將該txt檔讀入，是以tab為分隔。

1.任何幾行的文字，都適用上述的網址來操做。
2.所選擇的項目，無法做「退選」的動作，只能在該頁重新整理，會把所有的選擇全清除掉，再重選。
3.其實也可以吐出 CSV 的格式，但一定會碰到行數的裡面有逗號的問題，所以只能以複製、貼上，而以tab為分欄，而避開逗號的分欄問題。
4.本系統是以Ruby on Rails再加上簡單的javascript，快快地簡單地完成，所以javascript一定要開才能用。

cathy6270 iT邦新手 5 級 ‧ 2010-09-29 09:57:26 檢舉

tombo iT邦高手 1 級 ‧ 2010-10-01 17:16:31 檢舉

tombo提到：

14
alenchen
iT邦新手 2 級 ‧ 2010-09-29 09:15:40

u745253 iT邦新手 4 級 ‧ 2010-09-29 14:48:36 檢舉