IT仕事

アンケートソフト秀吉でMAを作るためのExcel自作関数

投稿日:

会社の同僚用に作った。
複数列の回答を「1,2,4」のように1列にしたり、3は無ければ飛ばしたり、先頭と末尾にはカンマつけないで、とか、手作業だと色々面倒な処理を、Excelマクロにした。
以下を標準モジュールに貼って、関数として使ってもらうことにした。

Function CommaSep(範囲 As Range) As String 
'選択された範囲に空白以外が入っている場合のみ左からの連番数値で返す
Dim Rng As Variant, myj As Variant
Dim i As Long
i = 1
For Each Rng In 範囲
  If Rng.Value <> "" Then myj = myj & i & ","
  i = i + 1
Next Rng
If myj = "" Then
  CommaSep = Null
Else
  CommaSep = Left(myj, Len(myj) - 1)
End If
End Function

以下のように、コードをちょっと変えるだけで、いろいろなパターンができそう。

無題

-IT仕事

執筆者:

関連記事

no image

瞬NAS

月刊アスキー2005年6月号の記事に、NAS特集。 KNOPPIXを使う方法が述べられていた。 1.KNOPPIXでPCをブート 2.スタートボタン->KNOPPIX->Service->Start …

no image

TeamViewer「指定のネットワークアドレスではパートナーに接触できません」

TeamViewerの、リモートする側・される側のバージョンが違うと、リモートコンピュータのパートナーIDを入れて相手に接続しようとした場合に、 「指定のネットワークアドレスではパートナーに接触できま …

no image

FirefoxのURLの自動補完がきかなくなった けど直した

FirefoxのURLの自動補完がきかなくなった。 色々試してみても、回復できない。 ようやくわかった方法が以下。 F10を押してメニューを出し、ヘルプの、 トラブルシューティング情報 を表示し、右上 …

no image

ExcelのRelaxToolsとCSVI/Oがリボンから消えたが復活させた

ExcelのRelaxToolsとCSVI/O。 両方のフリーソフトとも、本当に業務で重宝しており、ありがたく使わせていただいている。 しかし先日から、リボンにアドインメニューが表示されなくなって、困 …

Power Automate Desktopで .NETスクリプトを実行して正規表現で文字を抜き出す

やりたかったことは、 文字列を与えて、その文字列から正規表現でハイフンに挟まれた文字列を取り出すこと。 ChatGPTに質問したら、それらしいスクリプトは作ってくれたけど、いざ動かすとエラーになり、正 …