[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『VBAに関数の挿入について』(たまごろん)
現在、下のような表を作成しています。
A B C D E F
受付番号 サービス申請番号 サービスID 件名 開始時間 終了時間
希望
A B C D E F G
グレード 受付番号 サービス申請番号 サービスID 件名 開始時間 終了時間
A列に1行挿入し、C列にあるサービスIDに応じて中級・高級・その他の
グレードを表示したいと思っています。
なお、サービスID必ず入力があり、基本3種を想定
ただし、区切りとして空白行も存在する(横1行)
関数イメージ
=IF(B3<>"",IF(COUNTIF(C3,"SMX*"),"その他",IF(COUNTIF(D3,"N*"),"中級","高級")),"")
Sub 挿入()
Columns("A").Insert ' 列「A」に挿入
'ここが分からない
End Sub
こういう動きはできるものなのでしょうか?
すいません、教えてください。
< 使用 Excel:Excel2013、使用 OS:Windows7 >
Option Explicit
Sub test() Dim r As Long
Columns("A").Insert r = Range("D" & Rows.Count).End(xlUp).Row Range("a2:a" & r).Formula = _ "=if(d2<>"""",if(left(d2,3)=""SMX"",""その他"",if(left(d2,1)=""N"",""中級"",""高級"")),"""")"
End Sub
(マナ) 2017/01/02(月) 11:13
データを入れてみて動くのを確認しました。
なるほど、対象セルに関数を文字列?として入力するやり方があるんですね。
勉強になりました。
教えていただき、ありがとうございました。
大変助かりました。
(たまごろん) 2017/01/05(木) 01:33
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.