No.2
- 回答日時:
月を年で置き換えてから年でsplitする。
tmps = Split(Replace(shet, "月", "年"), "年")
qw = tmps(0)
qr = tmps(1)
No1の方の方法だと
qw = Year(shet & "1日")
qr = Month(shet & "1日")
なので、1ステップ短くて済みますね。
この回答へのお礼
お礼日時:2017/02/15 05:07
ご回答いただきありがとうございました。
いろいろなやりかたがあるんですね。
NO1のかたの方法も記載いただきありがとうございました。
No.4ベストアンサー
- 回答日時:
二種類のマクロを提示します。
Basp21 というのは、フリーのPerl ライクの正規表現オブジェクトです。VBAは、Lispのような言語ではないので、それなりの書き方に決まってきてしまいます。Sub TextConvert()
Dim text_date As String
Dim bufDate As Variant
Dim y As Integer, m As Integer
text_date = "2007年2月"
bufDate = DateValue(text_date)
y = Year(bufDate)
m = Month(bufDate)
End Sub
'Basp21の利用で、配列に入れる場合
Sub Basp21Test()
'配列に入れるなら、PerlライクのBasp21で切り分けます
Dim text_date As String
Dim bufDate As Variant
Dim y As Integer, m As Integer
Dim ar
Dim bobj As Object
Set bobj = CreateObject("Basp21")
text_date = "2007年2月"
ar = bobj.Split("/[年月]/kg", text_date)
y = ar(0)
m = ar(1)
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- JavaScript javascriptで文字分割は、 split() などメソッド不要??? 4 2023/02/06 22:50
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
- Excel(エクセル) エクセル関数の変わった使い方 3 2022/05/13 17:12
- Visual Basic(VBA) 以下のVBAで該当文字列の前後に付与したい。 例 前に付与 abc ユーザーID 12345 後に付 3 2022/04/19 21:50
- Excel(エクセル) Excelの関数についておしえてください。 3 2023/04/20 18:36
- その他(コンピューター・テクノロジー) 【Tableau Desktop】文字列から8桁の数字を日付型(yyyyMMdd)として取得 1 2023/07/31 10:17
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- PHP カラーミーショップのSmartyでの文字列抜き出し 2 2022/05/06 11:51
- Visual Basic(VBA) vba 等間隔の列に対しての計算 6 2022/05/17 20:15
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
sublimit textっていうエディタ...
-
VBAでフィールドを配列読み
-
Googleシート「A1」でなくて「A...
-
【VBS】クリップボード操作につ...
-
助けてください!
-
C#のループでtextboxに値を入れ...
-
アクセスできない保護レベルエ...
-
エクセルVBAでテキストボッ...
-
C言語のサフィックスについて
-
VBAでcallで呼び出したsubを終...
-
Excel VBAでsub,dimは何の略?
-
ClickとChangeイベントの違いは...
-
エクセル・VBAでテキストボック...
-
[Excel2000]auto_closeを止めさ...
-
GetNextWindowがDLLファイルUse...
-
【VBScript】変数のスコープ
-
visual basic初心者です。 visu...
-
Vba テキストボックスの文字列...
-
プロシージャまたは関数の引数...
-
他のフォームから別のフォーム...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
sublimit textっていうエディタ...
-
ExcelのVBAで文章にある複数の...
-
テキストボックスかラベル上の...
-
【VBS】クリップボード操作につ...
-
RichTextBoxで指定行の色を自動...
-
vba 日本語以外を抽出について
-
文字列を配列に…。
-
Pythonのre.split()の正規表現...
-
VBスクリプトでファイルのコピ...
-
文字列を日付型情報として計算...
-
VB6.0 sp5]テキストボックスと...
-
XMLファイルのattribute値がう...
-
VBScript、ClipboardDataオブジ...
-
助けてください!
-
Googleシート「A1」でなくて「A...
-
HTMLのデータ読み取り
-
Visual Basicについてお聞きし...
-
[VB6] SQLの作成について
-
perlによるxmlファイルの取得
-
表の文字の均等割りについて
おすすめ情報