IT仕事

アンケートフォームからチェックボックスとオプションボタンのテキスト文字を取り出してテキストファイルに出すためのコード

投稿日:

アンケートフォームからチェックボックスとオプションボタンのテキスト文字を取り出してテキストファイルに出すためのコードを作成。
出力されるコードは、そのチェックボックス等を作成した順番に出力されるため、作り方によっては、必ずしもまとまっては出ない。
けども、コピペ等の手段で一つ一つ書き出していくよりは、だいぶマシになると思う。

あと、最初はDebug.Printでイミディエイトウィンドウに出していたのだが、200行を超えると上から順に消えていってしまうことに気がついたので(ちなみに今回対象としたチェックボックスなどのシェイプは250)、テキスト出力に変更。

Sub チェックボックスとオプションボタンのラベル出力()
Dim s As Shape
Dim StrFN As String
Dim IntFlNo As Integer

StrFN = ActiveWorkbook.Path & "\data.txt"
IntFlNo = FreeFile
Open StrFN For Output As #IntFlNo
For Each s In ActiveSheet.Shapes
'        Debug.Print s.Name
        If Left(s.Name, 6) = "Option" Then
            'Debug.Print s.TextFrame.Characters.Text
            Write #IntFlNo, s.TextFrame.Characters.Text
        End If
    Next s
    Debug.Print "---"
    For Each s In ActiveSheet.Shapes
'        Debug.Print s.Name
        If Left(s.Name, 5) = "Check" Then
            Write #IntFlNo, s.TextFrame.Characters.Text
        End If
    Next s
    Close #IntFlNo
End Sub

-IT仕事

執筆者:

関連記事

no image

LimeSurvey2.00+(131009) インストールでトラブル

たまたま使っていたLimeSurveyの管理画面右上に、 「利用可能なアップデート: 2.00+(131009) または 2.05RC2(131011)」 とあったので、 「しばらくアップデートしてい …

no image

教育訓練給付制度

おや? 久々にITCの公式HPを見ると、こんな記述が。 「ITコーディネータ補資格認定用ケース研修は、2005年度より、厚生労働省教育訓練給付制度の対象講座になっておりません」 私が受験した2年前は、 …

no image

Nvu

とあるWebサイトを作っている。

CliborのマクロをPythonの正規表現を使ってフォームに値をセットする

とにかくコピペ作業が多い職場なので、何かクリップボード拡張ソフトを入れたらいいねということで、Cliborを試してみたところ、なかなかよかったので、部署に啓蒙した。 「Clibor」定型文の挿入もでき …

no image

facebookアプリに初挑戦

そろそろ、手を付けないとやばいかもと、重い腰をあげることにした。 まずは早速、ディベロッパー登録でつまずいた。 登録するには携帯メール(docomoなどのキャリアメール)が必要なのだが、自分はPHSし …