http://okwave.jp/qa4814381.html
で質問したものです。
例として「Sheet1」のセルA1に「1111」と入力しB1に「故障」、C1に「日時」を、D1に「担当者名」を入力すると、Sheet名「1111」のB18に「故障」C18に「日時」D18に「担当者名」が反映。
その後は入力していけば、B、C、Dの19~と下に反映していく方法を教えてください。
反映させるセルは「B18」を始まりとして、そのセルに内容、「C18」に日時「D18」に担当者の名前を始まりとしたいです。
No.6ベストアンサー
- 回答日時:
まとめましたので、前回のものと入れ替えてください
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("d1")) Is Nothing Then Exit Sub
If Range("a1").Value = "" Then Exit Sub
If Range("b1").Value = "" Then Exit Sub
Dim myData As Variant
Dim i As Long
Dim flg As Integer
Dim ws As Worksheet
flg = 0
For Each ws In Worksheets
If Range("a1").Value = ws.Name Then
flg = 1
Exit For
End If
Next ws
If flg = 1 Then
myData = Range("b1:d1").Value
With Worksheets(Range("a1").Value)
i = .Range("b65536").End(xlUp).Offset(1, 0).Row
If i < 18 Then
.Range("b18:d18").Value = myData
Else
.Range("b65536").End(xlUp).Offset(1, 0).Resize(1, 3).Value = myData
End If
End With
Else
MsgBox "入力されたSheetはありません"
End If
End Sub
No.5
- 回答日時:
NO3です。
>関数の最初と最後に{}が付きます。これで正しいのでしょうか?
⇒正しい配列数式の表示です。
>「#REF」となってしまいました。
⇒配列数式として認識されいてエラーとなっている場合、考えられる原因として、シート名の数値・文字列による書式相違です。
回答では、シート名を文字列としていますので、仮にA1の1111が右詰め(数値)の場合、次の数式でお試し下さい。
=IF(COUNTIF(Sheet1!$A:$A,MID(CELL("filename"),FIND("]",CELL("filename"))+1,31)*1)>ROW(A1)-1,INDEX(Sheet1!B:B,SMALL(IF(Sheet1!$A$1:$A$100=MID(CELL("filename"),FIND("]",CELL("filename"))+1,31)*1,ROW(Sheet1!$A$1:$A$100),99999),ROW(A1))),"")
No.4
- 回答日時:
こんばんわ、hige_082です
前回までと違い、入力するセルが増えたため処理開始の
タイミングが分からないので、今回は入力後マクロを実行する必要があります
A1~D1は必ず入力されるのでしょうか?
入力の順番は?
この辺が不明なので・・・
取り敢えずこっちで勝手に決めます
#2のマクロはそのままで、次を追加してみてください
'対象シートモジュールへ
Private Sub Worksheet_Change(ByVal Target As Range)
'ここで指定したセル(D1)に入力すると処理が開始されます
If Intersect(Target, Range("d1")) Is Nothing Then Exit Sub
'A1に入力されていないとエラーが出るので、入力されているか検査します
'空白の場合は処理を中止します
If Range("a1").Value = "" Then Exit Sub
'B1に入力されているか検査します
'空白の場合は処理を中止します
If Range("b1").Value = "" Then Exit Sub
Call test
End Sub
D1に値を入力すると処理が開始されますが
A1・B1が未入力だと処理は中止されます
勝手に決めちゃいましたが
こんな感じでよいかな
この回答への補足
いつもご親切にありがとうございます。
今回教えていただいた事を実行してみたところ
With Worksheets(Worksheets("sheet1").Range("a1").Value)
の部分が黄色く表示されて、デバックが有効でない。とエラーが出ます。
何度もお聞きして申し訳ないですが、解決の仕方をお教えください。
モジュールの知識がなく何もできません。
よろしくお願いします。
No.3
- 回答日時:
一例です。
(シートタブ名をキーにSheet1の入力情報を抽出としていますので、相違するようでしたら読み飛ばして下さい)シートのB18に以下の配列数式を設定、縦横に必要分コピーして下さい。(配列数式の為、入力完了時にshift+ctrl+enterキーを同時押下して下さい)
因みにシート名情報は文字列として、直接シートタブから引用していますが、各シートに設定できるのであれば数式も短くなります。
=IF(COUNTIF(Sheet1!$A:$A,MID(CELL("filename"),FIND("]",CELL("filename"))+1,31))>ROW(A1)-1,INDEX(Sheet1!B:B,SMALL(IF(Sheet1!$A$1:$A$100=MID(CELL("filename"),FIND("]",CELL("filename"))+1,31),ROW(Sheet1!$A$1:$A$100),99999),ROW(A1))),"")
この回答への補足
回答ありがとうございます。
上記をおこなったところ「#REF」となってしまいました。
セルに上記の関数を貼り付けて、shift+ctrl+enterキーを同時押ししてます。
その時に関数の最初と最後に{}が付きます。これで正しいのでしょうか?
No.2
- 回答日時:
こんな感じかな?
'標準モジュールへ
Sub test()
Dim myData As Variant
Dim i As Long
myData = Worksheets("sheet1").Range("b1:d1").Value
With Worksheets(Worksheets("sheet1").Range("a1").Value)
i = .Range("b65536").End(xlUp).Offset(1, 0).Row
If i < 18 Then
.Range("b18:d18").Value = myData
Else
.Range("b65536").End(xlUp).Offset(1, 0).Resize(1, 3).Value = myData
End If
End With
End Sub
この回答への補足
回答ありがとうございます。
標準モジュールにて行いましたが、何も反映しませんでした。
自分のやり方がまちがっているのでしょうか?
標準モジュールに上記を貼り付けているだけですが。
それでいいのでしょうか?
No.1
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの警告について
-
タイムスタンプとテキストから...
-
シートの情報を別のシートへま...
-
マクロの処理が遅くなった
-
Excelでの文字色
-
ワークシートに出現したこの画...
-
EXCELの散布図で日付が1900年に...
-
OFFSET関数を使用したいのです...
-
エクセルでファイルの最終更新...
-
エクセルの文字が途中から消える
-
エクセルデーターから必要な項...
-
Excel 大小比較演算子による「...
-
SUBTOTALは、参照された数字で...
-
エクセルの数式バーのフォント...
-
エクセルの「条件付き書式」を...
-
Excelについて教えてください。...
-
エクセルVBA 月の中で、月~土...
-
Excelの数字の前に入っている空...
-
Excelの関数について このよう...
-
セルの数を求めたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの警告について
-
Excelで数値を時間数に変換する...
-
エクセルの数式バーのフォント...
-
エクセルで数字の組み合わせを...
-
エクセルを使用して、円周率を...
-
Excelで特定の文字列が含まれて...
-
Excel 対象のセルに入力が無い...
-
任意の値が存在する行に名前を...
-
エクセルでファイルの最終更新...
-
index関数の説明をお願いします。
-
条件付き書式でやりたいのですが
-
重複しない値を取り出したい
-
【ExcelVBA】UTF-8(BOM無)でC...
-
【マクロ】マクロが割当てされ...
-
エクセル IF計算式?でしょうか?
-
エクセルで曜日を入れたい
-
表中の指定した条件の文字列を...
-
【Excel】版が同じ事を示す番号...
-
EXCELの散布図で日付が1900年に...
-
Excelについて。Excelに縦1列に...
おすすめ情報