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

お客さんのWebショップ

管理しているお客さんのショップWebサイト。 ハッキリいって、儲かっていない。 5月末に立ち上げて未だ購買数ゼロ。 まあ、商品点数が十点少々しかないのが一番の原因なのだが。 昨日はそれで色々調査。 そ …

no image

EC-CUBEをXAMPPを使ってローカルインストールした

表記の情報がWebにあまりなかったので、誰かの参考になるかと思い、記しておく。 ■XAMPPをインストール ごく、普通に。 ■データベースの作成 XAMPPのPHPMyAdminで、eccubeなどと …

no image

トップページに「新着一覧」としてカスタム投稿を日付つきで出したく、以下のページを参考にして(コピペして)作ってみたのだが、うまくいかない。 WordPress カスタム投稿の一覧をトップページ表示する …

no image

紙2001 長い間お世話になりました。

身辺整理をしております。 (といっても、辞表を出したとかそういうのではなく、単に、新年度に入ったので、スッキリしたく) まずは、IT環境からということで、いらないデータを削除したり、移動したり。 ソフ …

no image

HTML整形関係の秀丸マクロ

久々の投稿。 自分のHTMLファイルの作成スタイルは、 1.Artisteerでおおざっぱなデザインを決める。 2.同ソフトでHTMLソース(またはWPテンプレート)を出力する。 3.ソースを秀丸&F …