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

ExcelVBAでグラフのサイズやフォント種類を変更

秀吉というアンケートソフトで作ったExcelのグラフを、マクロを使って色々変えようと。 たくさんあるのでExcel2013のVBAで、グラフサイズとともにフォントサイズとフォント種類を変更しようとした …

no image

Photoshopで画像半分をぼかす(グラデーションで半透明に)する

よく忘れる(というか覚えられない)ので、備忘録。 1.画像を開く。またはレイヤーを選択。 2.レイヤー下の「ベクトルマスクを追加」ボタンをクリック 3.半身をグラデーションにしたい範囲をドラッグで選択 …

no image

会社のサイトを常時SSL化

会社のショッピングサイト2つのうち、1つを常時SSL化の作業に着手。 まずは、こちらのサイトを参考に、.htaccessを修正。301リダイレクトになるパターンがいいみたい。 httpからhttpsに …

Jazzy Formsで見積を計算してもらいその結果をメールで送る方法

やりたいことは、 「Webサイトの見積フォームを設置し、それを使ってお客さんに見積をしてもらい、その見積結果を管理者宛に送信する」 ・・・というもの。 WordPressのプラグインで、「Jazzy …

no image

CSSで、はまった(画像の重なり・relative/absolute)

トラブル:トップページに配置した「ネットでの購入はこちら」ボタンが、ウィンドウの大きさに合わせて移動してしまう。 横長が狭い画面だと右の位置にあるが、広い画面だと真ん中に来る。CSSを見ると、posi …