[[20170102095432]] 『VBAに関数の挿入について』(たまごろん) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『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.