- ベストアンサー
VBA EXCEL SPLIT カンマ 出力 抽出
pkh4989の回答
こんにちは。 以下のマクロを参考にして下さい。 マクロ貼付方法→入力シートをマウス右Click → 「コードの表示」→ 表示される画面に貼り付け Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then If Target.Value <> "" Then Cells(Target.Row, 2) = Get_Code(Target.Value) End If End If End Sub Function Get_Code(wc As String) As String Get_Code = "" Set c = Range("E1:E5").Find(wc) If Not c Is Nothing Then Get_Code = Cells(c.Row, 4) End If End Function
関連するQ&A
- 【Excel VBA】カンマ毎にデータを区切る
はじめて質問をさせて頂きます。 Excel VBAは初心者です。 仕事で必要なため、本を読みながら考えておりましたが、 手も足も出ない状態です。 【質問内容】 Excel VBAにて、ExcelファイルのA列のみに格納されているデータを カンマ「,」の位置毎に区切ります。 ※格納されているデータ例：A,B,C,D,E Excelの区切り位置にて、カンマで区切る処理と同じです。 A1から処理を開始し、A列のデータがなくなるまで 上記の処理を行います。 下記のプログラムを実行すると、1行目は正常にカンマ毎に 区切られますが、2行目以降はカンマ毎に区切られず、 そのままの状態です。 どこに問題があり、どのように修正すれば良いのでしょうか、 ご教示頂けると助かります。宜しくお願いします。 【プログラム】 Sub カンマ毎に区切る() Dim mydata As String Dim myArray() As String Dim i, j As Integer j = 0 Do While Cells(j + 1, "A").Value <> "" mydata = Cells(j + 1, 1) myArray() = Split(mydata, ",") For i = 0 To UBound(myArray) Cells(1, i + 1).Value = myArray(i) Next j = j + 1 Loop End Sub
- ベストアンサー
- Visual Basic
- セル内のカンマ ( , ) が消えません
エクセルで表を作っています。その中で金額欄ではカンマ（,）を使いました。品番欄では使いませんでした。でも二個のセルだけカンマが付いてしまいました。どうしても消えません。ツールボタンは押してないのにどうしてかわかりません。どうしたらカンマが消せるのでしょうか？ 入力して確定すると元に戻ってしまいます。 それと、頭の数字の０も確定すると消えてしまいます。どうしたら良いのでしょうか？
- ベストアンサー
- Windows XP
- ピボットテーブルの集計値をVBAでカンマ区切りにしたい
・excelのシートにあるピボットテーブルの集計値の書式をカンマ区切りにするVBAを作成したいのです。どうすればよいでしょうか。 ・汎用的なVBAにしたいので、ピボットテーブル名やフィールド名もVBAで取得するようにしたいです。 ・VBAを実行する前に、その集計値の1つを選択しておきます。 よろしくお願いいたします。
- 締切済み
- その他MS Office製品
- エクセルVBA テキストボックスに３桁ごとにコンマ
エクセルＶＢＡの質問です。 TextBoxに金額を入力してもらうのですが、入力時３桁ごとにコンマが打たれるように表示できないでしょうか？
- ベストアンサー
- Visual Basic
- vba split関数 コンマ区切り
エクセルに不慣れなため教えていただけたら幸いです。 A３～A11・B3～B11・C3～C11列にコンマ区切りの数字があります。 列によってはコンマで区切られた数字が3つのものと4つのものが混在しています。 split関数でコンマ区切りの数字を分割してE～Ｈ列・J～M列・O～R列に表示したいと考えています。 先ほど別の質問で下記のマクロを教えていただいたのですが、 その際は、A１～A9にあるものをD～G列に表示するというものでした。 よくよく考えると、A列のみではなく、B・C列と複数の列を コンマ区切りしたいと考えています。 このような場合は、どうしたらよいでしょうか。 vba不慣れなためわかりづらかったら申し訳ありません。 お分かりになられるかたがいらっしゃいましたら教えていただけますでしょうか。 よろしくお願いいたします。 Option Explicit ' Sub Macro1() Dim Rout As Long Dim Colu As Integer Dim Expression As Variant ' For Rout = 1 To Cells(Rows.Count, "A").End(xlUp).Row Expression = Cells(Rout, "A") Expression = Split(Expression, ",") ' For Colu = 0 To UBound(Expression) Cells(Rout, Colu + 4) = Expression(Colu) Next Colu, Rout End Sub
- ベストアンサー
- Visual Basic
- 【Excel】「リスト」数値入力でカンマを使うには
「データの入力規則」で作るリストにて、数値入力の際にカンマを使うことはできないのでしょうか？ たとえば「1,000円」と「2,000円」の場合、「元の値」に入力したときにカンマを使うと、このタスク上では区切りとして扱われてしまうようで実際にリスト化したときに 1 000円 2 000円 というリストになってしまいます。 カンマが入った数値のリスト化の方法はあるのでしょうか？ Excel2007利用です。
- ベストアンサー
- Excel（エクセル）
- VBA EXCEL 集計 操作 カウント
ＥＸＣＥＬのＶＢＡにて「変換」ボタンを押したら 名前と値段が同じ物の個数が表示され 管理番号も並ぶようなプログラムを作りたいのですが どのように構築すればよいでしょうか？ 詳しくは図をご覧ください。
- ベストアンサー
- その他（プログラミング・開発）
- カンマ区切りのcsvファイルを…
カンマ区切りのcsvファイルをExcelで別々のセルに読み込むVBAのプログラムを作りたいんですが、なかなか調べても見つかりません。 プログラムもしくは参考になるサイト等あればお願いします。
- 締切済み
- オフィス系ソフト
- Excel２０１６でシフト表からのデータ抽出
質問です。 Excelで添付ファイルの、左のような、シフト表から 「▽」のスタッフ（A～D）を抽出して、 右のような書式の、 黄色い部分に、「▽」のスタッフ（A～D)を 自動的に入力するようにすることは可能でしょうか？ 関数で教えていただけると助かります。 VBAで教えていただけても助かります。
- ベストアンサー
- Excel（エクセル）
- VBA EXCEL 集計 操作 カウント
図が不鮮明だったため、再投稿です。 ＥＸＣＥＬのＶＢＡにて「変換」ボタンを押したら 名前と値段が同じ物の個数が表示され 管理番号も並ぶようなプログラムを作りたいのですが どのように構築すればよいでしょうか？ 詳しくは図をご覧ください。
- ベストアンサー
- CSS