-PR-
解決済み

Excel VBA の作り方について【初心者】

  • 困ってます
  • 質問No.9280356
  • 閲覧数64
  • ありがとう数2
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 100% (12/12)

Excel VBA の作り方について質問させてください。


A1セルに「営業部【山本】」と入力されています。
B1セルに「01:35:24」(タイム)と入力されています。

(1)D1セルに「山本」を抜き出して表示
(2)E1セルに「95」(分数)で表示
(3)A2以降で同じ作業の繰り返し(最終入力列まで)

というVBAを作成しております。


Sub macro1()

'行数確認
nr = Range("A1048576").End(xlUp).Row
For i = 1 To nr

'名前抜き出し
x = Range("A1").Offset(i - 1)
j1 = InStr(x, "【")
j2 = InStr(x, "】")
Range("D1").Offset(i - 1) = Mid(x, j1 + 1, j2 - j1 - 1)

'分表示
x = Range("B1").Offset(i - 1)
Range("E1").Offset(i - 1) = Int(x * 24 * 60)

Next i
End Sub

ここまではプログラムが完成しています。

この後、
(4)C列セルに入力されている数値をF列セルにそのまま入力
したい場合には、どの部分にどのようなプログラムを追加すればよいでしょうか?

よろしくお願いします。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル14

ベストアンサー率 28% (4355/15365)

すでに回答が出ているが、少し違った考え方のコードで書いてみます。
データに統一ルールはずれの表現がある場合は、ややこしく(エラー等)なりますので注意。
例データ A-D列、C,D列が答え
営業部【山本】1:35:24山本95
人事部【長谷川】3:15:02長谷川195
業務推進部【今】5:36:24今336
コード
前半はVBAのSPLIT関数を使っている。
後半の時刻の方は秒を「なし」にしてしまって考える手もあるが、そのまま分に直しても良いのかなとも思った。予期している答えと違う場合は式を修正してください。
前半はプロセスを見せるために、Msgboxで、しつこく変数の中身を出しているが、納得で来たら、すべてMsgboxの行は削除のこと。
Sub test01()
Dim b() As String
Dim c() As String
For i = 1 To 3
a = Range("A" & i)
MsgBox a
b = Split(a, "【")
MsgBox b(0)
MsgBox b(1)
c = Split(b(1), "】")
MsgBox c(0)
MsgBox c(1)
Range("C" & i) = c(0)
Next i
'--
For i = 1 To 3
t = Range("B" & i) * 24 * 60
MsgBox Int(t)
Range("D" & i) = Int(t)
Next i
End Sub
24*60(分の場合)や24*60*60(秒の場合)をかけるのは判りますか?
日付時刻しりあるちというものの仕組みからこういうものを使う。
Googleで「日付時刻シリアル値」で照会のこと。
http://www.excel.studio-kazu.jp/tips/0049/
以下のGooglenで出てくるサイトの記事を読むこと。
エクセルVBAはエクセルの(特に日付、時刻の)仕組みを知らないとVBAが組めない1例の箇所です。
お礼コメント
kenta3129

お礼率 100% (12/12)

ご返信ありがとうございました。
こんな解釈もあるんだと、ついつい頷きながら見てしまいました。

メッセージボックスが組み込まれていたので、一つ一つポイントを押さえて理解することができました。
シリアル値というのは初めて聞いたのですが、勉強してみようと思います。

本当にありがとうございました。
投稿日時 - 2017-01-13 00:30:10
関連するQ&A
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


新大学生・新社会人のパソコンの悩みを解決!

いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ