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仕事

執筆者:

関連記事

PhotoshopElementsで写真の角を丸くする

方法を見つけるのに2時間ほどかかってしまったので備忘録・・・。 1.写真をCtrl+Aで全選択。 2.選択範囲-選択範囲を変更-境界線-10px。境界線が選択される 3.選択範囲-選択範囲を変更-滑ら …

no image

Google Chrome から Mozilla FireFox に乗り換え

ここ一年ほどGoogleChromeを使ってきたが、今日、それまで使っていたFireFoxに戻ろうと思う。 マウスオーバーでタブを切り替えができなかったり、ブックマークを新規タブで開く方法が面倒だった …

no image

久々にExcelVBAの仕事が来て戸惑う。

フォームのアクティブ時にトグルボタンに値をセットしたらなぜかClickイベントが動いてしまい、そのイベントをキャンセルする方法をググルもわからず(AccessではできるがExcelではできない?)、結 …

no image

オープンソース・又は安価なECサイト比較

近々来そうなショッピングサイト構築仕事。そのために一日かかって調べた。 忘れないようにメモメモ。 今回の仕事の必要要件 ・管理者がバックエンドから顧客の注文データを投入できる(電話注文・FAX注文対応 …

no image

会社のサイトを常時SSL化

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