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

Quick TranslatorがFireFox12で使えるようになった

FireFoxをバージョンアップした際に、互換性の問題から使えなくなった、Quick Translator。 私はこれを長年使い、「これ以上に使いやすいアドオンはない」と思っているので、昨年、FFの最 …

no image

今日知ったWordPressの便利なプラグイン

NextgenGallery:英語管理画面だけど、写真を一発表示・ページ作成できるので便利そう。今回は下述のwp-kougakuを採用したので、コチラは見送り。 php-code-widget:ウイジ …

no image

ContactForm7プラグイン-チェックしたチェックボックスの背景色を変える

本日やったこと。 ContactForm7プラグインを使っているが、チェックボックスのクリックが小さくて、なかなかクリックできないので、ホットスポットというか、クリック感知の範囲を広げたかった。 こん …

no image

とおちゃん、またダメだったヨ

昨日、秋に受験した情報処理試験の結果が発表された。 「不合格」 がっくり。 自信があっただけに、がっくり。 一年に一度しかない試験を落としやがって、何やってんだ、俺は。 思えば、ひょっとして、答案用紙 …

no image

決裁システム

取引先から、「簡単な決裁システムを使いたいんだけど、何かいいものを知らないか」と聞かれた。 うちの会社ではそんなイイモノは使っていないし、他の取引先に納入した事もない。 知りません、と返事しかけたとき …