pkh4989 の回答履歴

お世話になります。 今、あるシートに１つのマクロを登録してあります。 リストで選択した番号に従って指定したセルにカーソルを飛ばすというマクロです。 で、それとは別のセルに同じシートで郵便番号を入力したら隣のセルに住所を反映させるマクロを登録したいのですが ここで入手したコードをコピペして範囲を修正したのですが どうやら下記の文章が２つあるのがいけない（？）のでしょうか？ 「コンパイルエラー名前が適切ではありません」と出てきます。 Private Sub Worksheet_Change(ByVal Target As Range） このコマンド（？）は１つのシートに２つ存在してはいけないものなのでしょうか？ あと 出来れば Ｌ列に入力した郵便番号を参照してＭ列に都道府県名、Ｎ列に市町村名以降を反映させたいので その方法もご教示いただければ幸いです。 どちらかだけでも結構です。 ・エラーの原因、 ・住所を反映させるマクロ ご教示いただける方、宜しくお願い致します。

お世話になります。 今、あるシートに１つのマクロを登録してあります。 リストで選択した番号に従って指定したセルにカーソルを飛ばすというマクロです。 で、それとは別のセルに同じシートで郵便番号を入力したら隣のセルに住所を反映させるマクロを登録したいのですが ここで入手したコードをコピペして範囲を修正したのですが どうやら下記の文章が２つあるのがいけない（？）のでしょうか？ 「コンパイルエラー名前が適切ではありません」と出てきます。 Private Sub Worksheet_Change(ByVal Target As Range） このコマンド（？）は１つのシートに２つ存在してはいけないものなのでしょうか？ あと 出来れば Ｌ列に入力した郵便番号を参照してＭ列に都道府県名、Ｎ列に市町村名以降を反映させたいので その方法もご教示いただければ幸いです。 どちらかだけでも結構です。 ・エラーの原因、 ・住所を反映させるマクロ ご教示いただける方、宜しくお願い致します。

こんにちわ 別ブックで入力した値から１ヶ月分の日付を表示させていく表を作成したいのです。 すでに表の元は完成していて、３１日入るようになっています。 線もひいてあります。 ですが、入力日によっては３１日の所もあれば３０日の場合もあり、２８日の時や２９日の時もあると思うんです。 それに対応する形で表に埋まった日付の分だけの表をVBAで作成したいのですが、処理をするたびに随時変更できるのでしょうか？

こんにちわ 別ブックで入力した値から１ヶ月分の日付を表示させていく表を作成したいのです。 すでに表の元は完成していて、３１日入るようになっています。 線もひいてあります。 ですが、入力日によっては３１日の所もあれば３０日の場合もあり、２８日の時や２９日の時もあると思うんです。 それに対応する形で表に埋まった日付の分だけの表をVBAで作成したいのですが、処理をするたびに随時変更できるのでしょうか？

以前は仕事と話しましたが、勉強が仕事みたいでした； すみません。また質問させてください。 ＶＢＡで日付をやる際Format(Date, "ggge年m月d日")というようなソースを書くと思うのですが、今回知りたいのが入力フォームというブックに日付をセットすると予め用意されている別のブックの表にそのセットした日付から１ヶ月間分の日付と曜日を行に貼り付けていきたいのですがどうしたらいいのでしょうか？ 日付を一年前までの日付かどうかのチェックのソースもよろしくおねがいします。 その入力フォームのマクロはまだ、値チェックまでしかできていません。 意味不明かもしれませんが何卒よろしくお願いします。 ------------ソース------------------ Option Explicit Private Sub CommandButton1_Click() If Worksheets("日付セット").Range("C6") = "" Then '値が入っているか MsgBox ("日付を入力してください！") Exit Sub Else End If End Sub

以前は仕事と話しましたが、勉強が仕事みたいでした； すみません。また質問させてください。 ＶＢＡで日付をやる際Format(Date, "ggge年m月d日")というようなソースを書くと思うのですが、今回知りたいのが入力フォームというブックに日付をセットすると予め用意されている別のブックの表にそのセットした日付から１ヶ月間分の日付と曜日を行に貼り付けていきたいのですがどうしたらいいのでしょうか？ 日付を一年前までの日付かどうかのチェックのソースもよろしくおねがいします。 その入力フォームのマクロはまだ、値チェックまでしかできていません。 意味不明かもしれませんが何卒よろしくお願いします。 ------------ソース------------------ Option Explicit Private Sub CommandButton1_Click() If Worksheets("日付セット").Range("C6") = "" Then '値が入っているか MsgBox ("日付を入力してください！") Exit Sub Else End If End Sub

たとえば、"A1"に1を記入した場合、B1を記入不可にできるような、VBAのコードがあれば教えて欲しいです。 sub　記入不可() if range("A1").value = "A1" then B1のセルが記入できないコード end if end sub です。 よろしくお願い致します。

以前は仕事と話しましたが、勉強が仕事みたいでした； すみません。また質問させてください。 ＶＢＡで日付をやる際Format(Date, "ggge年m月d日")というようなソースを書くと思うのですが、今回知りたいのが入力フォームというブックに日付をセットすると予め用意されている別のブックの表にそのセットした日付から１ヶ月間分の日付と曜日を行に貼り付けていきたいのですがどうしたらいいのでしょうか？ 日付を一年前までの日付かどうかのチェックのソースもよろしくおねがいします。 その入力フォームのマクロはまだ、値チェックまでしかできていません。 意味不明かもしれませんが何卒よろしくお願いします。 ------------ソース------------------ Option Explicit Private Sub CommandButton1_Click() If Worksheets("日付セット").Range("C6") = "" Then '値が入っているか MsgBox ("日付を入力してください！") Exit Sub Else End If End Sub

下表の表で同じ品番で色が複数あるときに本数を先頭行に集計しているのですが色を備考欄のセルに結合して表示する関数又はマクロで方法を教えてください。 色が重複する時は色の本数表示はしません。（A1はBが2本ありますがB*2とはしません） No.　　品番　　本数　　色　　　備考 1　　　　　A1　　　　　　　4　　　 　A　　　　　A/B/C 　　　　　 A1　　　　　　　　　　　　B 　　　　　 A1　　　　　　　　　　　　B 　　　　　 A1　　　　　　　　　　　　C 2　　　　　A2　　　　　　　1　　　　 A　　　　 A 3　　　　　A3　　　　　　　　　　　　B　　　　B よろしくお願いします。

以前は仕事と話しましたが、勉強が仕事みたいでした； すみません。また質問させてください。 ＶＢＡで日付をやる際Format(Date, "ggge年m月d日")というようなソースを書くと思うのですが、今回知りたいのが入力フォームというブックに日付をセットすると予め用意されている別のブックの表にそのセットした日付から１ヶ月間分の日付と曜日を行に貼り付けていきたいのですがどうしたらいいのでしょうか？ 日付を一年前までの日付かどうかのチェックのソースもよろしくおねがいします。 その入力フォームのマクロはまだ、値チェックまでしかできていません。 意味不明かもしれませんが何卒よろしくお願いします。 ------------ソース------------------ Option Explicit Private Sub CommandButton1_Click() If Worksheets("日付セット").Range("C6") = "" Then '値が入っているか MsgBox ("日付を入力してください！") Exit Sub Else End If End Sub

ｅｘｃｅｌ　ＶＢＡで 今ある列の連続した範囲(仮に$D$2：$D$8とか、$B$3：$B$7)とかがセレクトされているとする。 そのセレクトされている状態でTestマクロで処理し、それが例えば$D$2：$D$8の場合は、順に１，２，３，４，５，６，７というように1番から順にセルの個数まで数字を表示したい。（$B$3：$B$7　　なら順に１，２，３，４，５） Testマクロの記述は？ なおTest2マクロでは、順に１，２，３，４，５，６，７のかわりに（1)、(2)、－－ としたい。 Test2マクロの記述は？ よろしく　

以前は仕事と話しましたが、勉強が仕事みたいでした； すみません。また質問させてください。 ＶＢＡで日付をやる際Format(Date, "ggge年m月d日")というようなソースを書くと思うのですが、今回知りたいのが入力フォームというブックに日付をセットすると予め用意されている別のブックの表にそのセットした日付から１ヶ月間分の日付と曜日を行に貼り付けていきたいのですがどうしたらいいのでしょうか？ 日付を一年前までの日付かどうかのチェックのソースもよろしくおねがいします。 その入力フォームのマクロはまだ、値チェックまでしかできていません。 意味不明かもしれませんが何卒よろしくお願いします。 ------------ソース------------------ Option Explicit Private Sub CommandButton1_Click() If Worksheets("日付セット").Range("C6") = "" Then '値が入っているか MsgBox ("日付を入力してください！") Exit Sub Else End If End Sub

以前は仕事と話しましたが、勉強が仕事みたいでした； すみません。また質問させてください。 ＶＢＡで日付をやる際Format(Date, "ggge年m月d日")というようなソースを書くと思うのですが、今回知りたいのが入力フォームというブックに日付をセットすると予め用意されている別のブックの表にそのセットした日付から１ヶ月間分の日付と曜日を行に貼り付けていきたいのですがどうしたらいいのでしょうか？ 日付を一年前までの日付かどうかのチェックのソースもよろしくおねがいします。 その入力フォームのマクロはまだ、値チェックまでしかできていません。 意味不明かもしれませんが何卒よろしくお願いします。 ------------ソース------------------ Option Explicit Private Sub CommandButton1_Click() If Worksheets("日付セット").Range("C6") = "" Then '値が入っているか MsgBox ("日付を入力してください！") Exit Sub Else End If End Sub

例えばデーター管理ファイルＡというファイルの中にある 顧客データという名前のエクセルブックを開いて上書き保存をして、 データー管理ファイルＢというファイルの中に顧客データ【1016】(1) という名前で(1016とは本日の日付を表しています)保存するとします。 この段階で、ファイルＢの中に顧客データ【1016】(1)が入ってる事になりますが、再度本日二回目にＡファイルの中にある顧客データをBファイルの中へ保存する場合顧客データ【1016】(2)という名称で保存して さらに本日三回目に同じように保存する場合は【1016】(3)というようにしたいのですが(もし明日保存する場合は、一回目は顧客データ【1017】(1)、二回目は【1017】(2)というように日付が変わると(1)から始めるようにしたいのですが)、VBAでどの様にしたらいいでしょうか?

例えばデーター管理ファイルＡというファイルの中にある 顧客データという名前のエクセルブックを開いて上書き保存をして、 データー管理ファイルＢというファイルの中に顧客データ【1016】(1) という名前で(1016とは本日の日付を表しています)保存するとします。 この段階で、ファイルＢの中に顧客データ【1016】(1)が入ってる事になりますが、再度本日二回目にＡファイルの中にある顧客データをBファイルの中へ保存する場合顧客データ【1016】(2)という名称で保存して さらに本日三回目に同じように保存する場合は【1016】(3)というようにしたいのですが(もし明日保存する場合は、一回目は顧客データ【1017】(1)、二回目は【1017】(2)というように日付が変わると(1)から始めるようにしたいのですが)、VBAでどの様にしたらいいでしょうか?

以前は仕事と話しましたが、勉強が仕事みたいでした； すみません。また質問させてください。 ＶＢＡで日付をやる際Format(Date, "ggge年m月d日")というようなソースを書くと思うのですが、今回知りたいのが入力フォームというブックに日付をセットすると予め用意されている別のブックの表にそのセットした日付から１ヶ月間分の日付と曜日を行に貼り付けていきたいのですがどうしたらいいのでしょうか？ 日付を一年前までの日付かどうかのチェックのソースもよろしくおねがいします。 その入力フォームのマクロはまだ、値チェックまでしかできていません。 意味不明かもしれませんが何卒よろしくお願いします。 ------------ソース------------------ Option Explicit Private Sub CommandButton1_Click() If Worksheets("日付セット").Range("C6") = "" Then '値が入っているか MsgBox ("日付を入力してください！") Exit Sub Else End If End Sub

Excel2003を使用しています。 システムからCSVで落としたデータで、データの並び方に規則性があるので、それを利用して、不要部分のデータをマクロで削除できないかと思い、質問させていただきます。 A列に『累計』を含む文字があった場合、その行のD列が0だったら、その行より上の行のA列に『計上日』と入力されている行までを削除するということをしたいです。 下記でいうと、2～5行までを削除したいです。 　　　A　　　　　B　　　　　C　　　　　D 1 2　計上日 3 4 5　累計　　　　　　　　　　　　　　　　0 6 7　計上日 8 9　累計　　　　　　　　　　　　　　1000 上記では、B列、C列には何も書いていませんが、実際はデータが入力されていたり、空欄だったりです。 D列が0の行を削除するコードはわかるのですが、さらに、条件が加わっても同じように処理は可能でしょうか？ よろしくお願いします。

マクロ初心者です。 F列からAJ列までの合計をAK列に数値で入力しようとしています。 ただし、FからAJ列の各セルに全てデータは入っていません。 したがってFからAJ列のいずれかにデータが入っている最終行を 見つけて合計を算入しようとしているのですが下記の通りやっても うまくいきません。教えてください。 エクセルのバージョンは2002です。 Sub () 'データが入っている最終行まで合計額を数字で入力 LastRow = Cells(65536, COL).End(xlUp).Row For i = LastRow To 6 Step -1 Set myRange = Range(Cells(i, 6), Cells(i, 36)) Cells(i, 37).Value = WorksheetFunction.Sum(myRange) Next i End Sub

以前は仕事と話しましたが、勉強が仕事みたいでした； すみません。また質問させてください。 ＶＢＡで日付をやる際Format(Date, "ggge年m月d日")というようなソースを書くと思うのですが、今回知りたいのが入力フォームというブックに日付をセットすると予め用意されている別のブックの表にそのセットした日付から１ヶ月間分の日付と曜日を行に貼り付けていきたいのですがどうしたらいいのでしょうか？ 日付を一年前までの日付かどうかのチェックのソースもよろしくおねがいします。 その入力フォームのマクロはまだ、値チェックまでしかできていません。 意味不明かもしれませんが何卒よろしくお願いします。 ------------ソース------------------ Option Explicit Private Sub CommandButton1_Click() If Worksheets("日付セット").Range("C6") = "" Then '値が入っているか MsgBox ("日付を入力してください！") Exit Sub Else End If End Sub

例えばデーター管理ファイルＡというファイルの中にある 顧客データという名前のエクセルブックを開いて上書き保存をして、 データー管理ファイルＢというファイルの中に顧客データ【1016】(1) という名前で(1016とは本日の日付を表しています)保存するとします。 この段階で、ファイルＢの中に顧客データ【1016】(1)が入ってる事になりますが、再度本日二回目にＡファイルの中にある顧客データをBファイルの中へ保存する場合顧客データ【1016】(2)という名称で保存して さらに本日三回目に同じように保存する場合は【1016】(3)というようにしたいのですが(もし明日保存する場合は、一回目は顧客データ【1017】(1)、二回目は【1017】(2)というように日付が変わると(1)から始めるようにしたいのですが)、VBAでどの様にしたらいいでしょうか?