pkh4989 の回答履歴

N4の列の一番下のセルを選択しコピー　左隣のセルに貼り付けをしたいのですが　N列の数は変動（N4～N64)します。 この動作をマクロで動かしたいのですが　わからないので教えてください　宜しくお願いします。

お世話になっております。 以前こちらでご教授いただいたマクロを登録して 上手い事 動作していて助かっていたのですが 自分が変な所をイジってしまった為に 上手く動作しなくなってしまいました。 どこが おかしいのか、再度ご教授ください。 宜しくお願い致します。 Private Sub Worksheet_Change(ByVal Target As Range) Dim rOne As Range For Each rOne In Target Select Case (rOne.Value) Case 1 Range("Q" & rOne.Row).Select Case 2 Range("Y" & rOne.Row).Select Case 3 Range("AA" & rOne.Row).Select Case Else End Select Next rOne というマクロをいただき、リストで 1～3の数字を選ぶようにしていたのですが そのリストをイジってしまい、 1、あああ 2、いいい 3、ううう というように文字列を挿入した結果「Q」「Y」「AA」列にセルが飛ばなくなってしまいました。 解決方法をご教授ください。 宜しくお願い致します。

N4の列の一番下のセルを選択しコピー　左隣のセルに貼り付けをしたいのですが　N列の数は変動（N4～N64)します。 この動作をマクロで動かしたいのですが　わからないので教えてください　宜しくお願いします。

N4の列の一番下のセルを選択しコピー　左隣のセルに貼り付けをしたいのですが　N列の数は変動（N4～N64)します。 この動作をマクロで動かしたいのですが　わからないので教えてください　宜しくお願いします。

N4の列の一番下のセルを選択しコピー　左隣のセルに貼り付けをしたいのですが　N列の数は変動（N4～N64)します。 この動作をマクロで動かしたいのですが　わからないので教えてください　宜しくお願いします。

N4の列の一番下のセルを選択しコピー　左隣のセルに貼り付けをしたいのですが　N列の数は変動（N4～N64)します。 この動作をマクロで動かしたいのですが　わからないので教えてください　宜しくお願いします。

DO I=1,100 WRITE(*,100)I 100 FORMAT(I2) の出力は1行に１～100まで表示されますが５行に分けて1行に１～２０、２行目に２１～３０　のように出力させるにはFORMAT文をどのように変えれば出来ますか？ １行目　　２行目 1 21 . . . . . . 20 30 基本的な質問ですが宜しくお願いします。

以前何度もこの「ＶＢＡ表作成」というタイトルで何度か質問させていただきました。 前回の締め切りのあと何度もデバック？やってみながら訂正してみたりしたのですが出来ませんでした。 ☆詳細（仕様？） ・入力フォームブックで日付を入力すると出力ブックに入力した日付から１ヶ月の日付が表示されます。 ・入力データブックがあり入力フォームで入力した日付から１ヶ月の日付で入力データにあるデータを貼り付けます。 ・重複したデータは足して表示させます。 ☆入力データブック ・Ｂ列に日付：日付の下に曜日が表示されています。 ・Ｍ列に区分：１か２が書いてあります。 ・Ｔ列に商品名：結合は関係ないとは思いますが、ＴからＡＰまで結合されています。 ・ＡＱ列に数量：ＡＱからＡＵまで結合されています。 ・ＢＡ列にコード：表示上記４つに比べ１行下に表記されていてＢＡからＢＤまで結合されています。 ☆出力ブック ・ＢからＨまで結合されており、Ｂ６に商品名が表示されます。（現時点では商品１つ分しかないので増えるたびに１行ずつセルが結合され挿入されます ・ＩからＫまで結合されており、Ｉ６にコードが表示されます。（これも上記と同じ） ・６行目～→区分１の場合・８行目～→区分２の場合に表示します。 (1)出力ブック（以下book）の表は品名とコードを表示する部分が結合されているのですが、挿入され別の値が表示となったときに結合されておらず、コードも表示されませんでした。 (2)入らないはずの所に数値が入ってしまいます。 (3)入るはずの所に値が表示されません（８行目以降の欄） ・品名：Ｂ５からＨ５まで結合されています。 品名が表示されるのはＢ６からＨ６までで挿入されるときも結合されて表示されたいです。 ・コード：Ｉ５からＫ５まで結合されています。 コードが表示されるのはＩ６からＩ６までで挿入されるときも結合されて表示されたいです。 Sub Get_nyuryoku(wDate As String, hNm As String, hCd As String, hKbn As String, s As Integer) Dim wData As Worksheet Dim i As Integer Dim mR As Long Set wData = Workbooks("入力データ.xls").Worksheets("Sheet1") With wData mR = .Cells(Rows.Count, "B").End(xlUp).Row For i = 3 To mR If .Cells(i, "B") = wDate Then '←ここで両方の日付を確認 hNm = .Cells(i, "T")　　←商品名 hCd = .Cells(i, "BA")　←コード hKbn = .Cells(i, "M")　←区分 s = .Cells(i, "AQ")　　←数量 Exit For End If Next End With End Sub お手数掛けますがよろしくおねがいします。 他に書かなきゃいけないことがありましたら言ってください。

エクセル２００３を使っていますが、大きい場所を印刷するために範囲選択しようとするとなかなかうまくいかず、とても困ってしまいました。何かもっと簡単な方法はないでしょうか？ドラッグして範囲選択しようとしました。 アドバイス、回答お待ちします。

以前何度もこの「ＶＢＡ表作成」というタイトルで何度か質問させていただきました。 前回の締め切りのあと何度もデバック？やってみながら訂正してみたりしたのですが出来ませんでした。 ☆詳細（仕様？） ・入力フォームブックで日付を入力すると出力ブックに入力した日付から１ヶ月の日付が表示されます。 ・入力データブックがあり入力フォームで入力した日付から１ヶ月の日付で入力データにあるデータを貼り付けます。 ・重複したデータは足して表示させます。 ☆入力データブック ・Ｂ列に日付：日付の下に曜日が表示されています。 ・Ｍ列に区分：１か２が書いてあります。 ・Ｔ列に商品名：結合は関係ないとは思いますが、ＴからＡＰまで結合されています。 ・ＡＱ列に数量：ＡＱからＡＵまで結合されています。 ・ＢＡ列にコード：表示上記４つに比べ１行下に表記されていてＢＡからＢＤまで結合されています。 ☆出力ブック ・ＢからＨまで結合されており、Ｂ６に商品名が表示されます。（現時点では商品１つ分しかないので増えるたびに１行ずつセルが結合され挿入されます ・ＩからＫまで結合されており、Ｉ６にコードが表示されます。（これも上記と同じ） ・６行目～→区分１の場合・８行目～→区分２の場合に表示します。 (1)出力ブック（以下book）の表は品名とコードを表示する部分が結合されているのですが、挿入され別の値が表示となったときに結合されておらず、コードも表示されませんでした。 (2)入らないはずの所に数値が入ってしまいます。 (3)入るはずの所に値が表示されません（８行目以降の欄） ・品名：Ｂ５からＨ５まで結合されています。 品名が表示されるのはＢ６からＨ６までで挿入されるときも結合されて表示されたいです。 ・コード：Ｉ５からＫ５まで結合されています。 コードが表示されるのはＩ６からＩ６までで挿入されるときも結合されて表示されたいです。 Sub Get_nyuryoku(wDate As String, hNm As String, hCd As String, hKbn As String, s As Integer) Dim wData As Worksheet Dim i As Integer Dim mR As Long Set wData = Workbooks("入力データ.xls").Worksheets("Sheet1") With wData mR = .Cells(Rows.Count, "B").End(xlUp).Row For i = 3 To mR If .Cells(i, "B") = wDate Then '←ここで両方の日付を確認 hNm = .Cells(i, "T")　　←商品名 hCd = .Cells(i, "BA")　←コード hKbn = .Cells(i, "M")　←区分 s = .Cells(i, "AQ")　　←数量 Exit For End If Next End With End Sub お手数掛けますがよろしくおねがいします。 他に書かなきゃいけないことがありましたら言ってください。

Sub 名前を付けて保存() Dim wSeq As String Dim wStr As String Dim Flnm As String Dim wFlnm As String ' Sheets("データー").Select Range("C3").Select ActiveWorkbook.Save Flnm = "\\Jooo\センタ\AA\CC" & Format(Date, "【mmdd】") & ".xls" If Flnm = "False" Then Exit Sub End If ' wSeq = 0 ExitFlg = False wFlnm = Flnm Do While ExitFlg = False If Dir(Flnm) <> "" Then '存在したら、連番を加算 wSeq = wSeq + 1 wStr = "(" & wSeq & ")" Flnm = Left(wFlnm, Len(wFlnm) - 4) & wStr & ".xls" Else '存在しない時、保存 ActiveWorkbook.SaveAs Filename:=Flnm ExitFlg = True End If Loop End Sub 先日回答者の方から上記コードを教えてもらい助かっているんですが、少し不都合でてきまして、上記を実行すると最初にCC【1022】という名前でフォルダに保存され、二回目に実行するとCC【1022】(1)という名前で同じフォルダに保存され、三回目に実行するとCC【1022】(2)というように連番で同じフォルダに保存されるんですが、一番最初に保存されたCC【1022】を削除して(どんどんBookが溜まっていくのを防ぐ為)四回目に実行すると【1022】(3)ではなく最初のCC【1022】の名前で保存されてしまいます。【1022】を削除してもCC【1022】(3)で保存されるようにするには、コードをどの様にかえたらいいでしょうか?

横に長いエクセルの表を作ったので、印刷タイトルを指定して どのページにも1ページ目の1列目～3列目が印刷されるように設定しました。 横向きの細かい表なので、見やすくするよう右端にも1列目のみ印刷させたいのですが、 全ページの左端、右端同時に印刷タイトルを固定することはできるのでしょうか？

以前何度もこの「ＶＢＡ表作成」というタイトルで何度か質問させていただきました。 前回の締め切りのあと何度もデバック？やってみながら訂正してみたりしたのですが出来ませんでした。 ☆詳細（仕様？） ・入力フォームブックで日付を入力すると出力ブックに入力した日付から１ヶ月の日付が表示されます。 ・入力データブックがあり入力フォームで入力した日付から１ヶ月の日付で入力データにあるデータを貼り付けます。 ・重複したデータは足して表示させます。 ☆入力データブック ・Ｂ列に日付：日付の下に曜日が表示されています。 ・Ｍ列に区分：１か２が書いてあります。 ・Ｔ列に商品名：結合は関係ないとは思いますが、ＴからＡＰまで結合されています。 ・ＡＱ列に数量：ＡＱからＡＵまで結合されています。 ・ＢＡ列にコード：表示上記４つに比べ１行下に表記されていてＢＡからＢＤまで結合されています。 ☆出力ブック ・ＢからＨまで結合されており、Ｂ６に商品名が表示されます。（現時点では商品１つ分しかないので増えるたびに１行ずつセルが結合され挿入されます ・ＩからＫまで結合されており、Ｉ６にコードが表示されます。（これも上記と同じ） ・６行目～→区分１の場合・８行目～→区分２の場合に表示します。 (1)出力ブック（以下book）の表は品名とコードを表示する部分が結合されているのですが、挿入され別の値が表示となったときに結合されておらず、コードも表示されませんでした。 (2)入らないはずの所に数値が入ってしまいます。 (3)入るはずの所に値が表示されません（８行目以降の欄） ・品名：Ｂ５からＨ５まで結合されています。 品名が表示されるのはＢ６からＨ６までで挿入されるときも結合されて表示されたいです。 ・コード：Ｉ５からＫ５まで結合されています。 コードが表示されるのはＩ６からＩ６までで挿入されるときも結合されて表示されたいです。 Sub Get_nyuryoku(wDate As String, hNm As String, hCd As String, hKbn As String, s As Integer) Dim wData As Worksheet Dim i As Integer Dim mR As Long Set wData = Workbooks("入力データ.xls").Worksheets("Sheet1") With wData mR = .Cells(Rows.Count, "B").End(xlUp).Row For i = 3 To mR If .Cells(i, "B") = wDate Then '←ここで両方の日付を確認 hNm = .Cells(i, "T")　　←商品名 hCd = .Cells(i, "BA")　←コード hKbn = .Cells(i, "M")　←区分 s = .Cells(i, "AQ")　　←数量 Exit For End If Next End With End Sub お手数掛けますがよろしくおねがいします。 他に書かなきゃいけないことがありましたら言ってください。

横に長いエクセルの表を作ったので、印刷タイトルを指定して どのページにも1ページ目の1列目～3列目が印刷されるように設定しました。 横向きの細かい表なので、見やすくするよう右端にも1列目のみ印刷させたいのですが、 全ページの左端、右端同時に印刷タイトルを固定することはできるのでしょうか？

複数条件での抽出(表示)方法を教えて下さい。 　　A　　　　　B　　　　C　　　　D 1　旧姓　　　氏　　　名　　　住所 2　 く　　　　 か　　　　さ　　 　た 3　　　　　　　き　　　　し　　 　ち 4　 き　　　　 く　　　　す　　　 つ 5　 く　　　　 け　　　　せ　　　 て 6　 　　　　　 こ　　　　そ　　　 と 上記のように住所録を作成し「旧姓 く」及び「氏　く」の人を抽出(それ以外に人は非表示)して印刷をしたいのですが、抽出(表示)方法を教えて下さい。

ブックの種類 入力フォーム→日付を設定するフォーム画面です。 book→予め出来ている表（Ｂ５・Ｂ７・Ｂ９・Ｂ１０・Ｉ５はタイトル？になります） 　　　Ｂ　　Ｉ　　　Ｌ　・・・ ４　　　　　　　　　日付・・・ ５　商品名　コード　曜日・・・ ６　商品名　コード　数値・・・ ７　　　小計　　　　数値・・・ ８　商品名　コード　数値・・・ ９　　　小計　　　　数値・・・ １０　　合計　　　　数値・・・ 入力データ→日付（曜日）、区分、商品名、商品数、コードが表になっています。 まず入力フォームで日付をセットします。 次にbookに入力フォームで入力した日付から１ヶ月間を表示させます。 (1) 日付設定表に設定日付をキーにして入力データブックより検索 (2) 検索日付が一致すれば、該当商品名、コード、区分、商品数等を取得 (3) 区分:1の場合は、該当日付の下の６行に、区分:2の場合は、８行に設定(同一商品の場合は加算) 但し、新しい商品の場合は行を追加→ 区分:1の場合は6行以降に、区分:2)の場合は8行以降に追加する (4)区分ごとの小計を表示 (5)合計を表示 (6)bookのみ処理した日付と時間で保存 (7)入力データのブックを閉じる。 出来ているところは日付を貼り付けるまでは教えてもらいながらですができています。 明日中とのことなのでよろしくお願いします。

VBAの書き方について御教授ください！ 複数のシートに、入力値が決まっているA列とC列があります。 その入力値の組み合わせによって、入力時にA：Cのセル書式を以下のように8通りに変えたいです。 マクロの自動記録しか経験がなく調べたのですがよくわかりませんでした。 よろしくお願いいたします。 1.A列「あ」・C列なし→セル背景：黄 2.A列「あ」・C列「ア」→セル背景：黄　フォント：青 3.A列「あ」・C列「イ」→セル背景：黄　フォント：赤 4.A列「い」・C列なし→セル背景：緑 5.A列「い」・C列「ア」→セル背景：緑　フォント：青 6.A列「い」・C列「イ」→セル背景：緑　フォント：赤 7.A列なし・C列「ア」→フォント：青　セル背景：なし 8.A列なし・C列「イ」→フォント：赤　セル背景：なし

ブックの種類 入力フォーム→日付を設定するフォーム画面です。 book→予め出来ている表（Ｂ５・Ｂ７・Ｂ９・Ｂ１０・Ｉ５はタイトル？になります） 　　　Ｂ　　Ｉ　　　Ｌ　・・・ ４　　　　　　　　　日付・・・ ５　商品名　コード　曜日・・・ ６　商品名　コード　数値・・・ ７　　　小計　　　　数値・・・ ８　商品名　コード　数値・・・ ９　　　小計　　　　数値・・・ １０　　合計　　　　数値・・・ 入力データ→日付（曜日）、区分、商品名、商品数、コードが表になっています。 まず入力フォームで日付をセットします。 次にbookに入力フォームで入力した日付から１ヶ月間を表示させます。 (1) 日付設定表に設定日付をキーにして入力データブックより検索 (2) 検索日付が一致すれば、該当商品名、コード、区分、商品数等を取得 (3) 区分:1の場合は、該当日付の下の６行に、区分:2の場合は、８行に設定(同一商品の場合は加算) 但し、新しい商品の場合は行を追加→ 区分:1の場合は6行以降に、区分:2)の場合は8行以降に追加する (4)区分ごとの小計を表示 (5)合計を表示 (6)bookのみ処理した日付と時間で保存 (7)入力データのブックを閉じる。 出来ているところは日付を貼り付けるまでは教えてもらいながらですができています。 明日中とのことなのでよろしくお願いします。

エクセルで数式バーの文字を反転させてボタンをクリックすれば上付き文字になるようなコマンドボタンを作りたいのですが反転文字の認識のさせ方がよくわかりません。VBAで数式バーの反転文字の認識のしかたを教えてください。（エクセル2003を使っています。）設定したい文字が多いため　ctrl+1 alt+b よりもボタンでポチッと設定したいのです。

ブックの種類 入力フォーム→日付を設定するフォーム画面です。 book→予め出来ている表（Ｂ５・Ｂ７・Ｂ９・Ｂ１０・Ｉ５はタイトル？になります） 　　　Ｂ　　Ｉ　　　Ｌ　・・・ ４　　　　　　　　　日付・・・ ５　商品名　コード　曜日・・・ ６　商品名　コード　数値・・・ ７　　　小計　　　　数値・・・ ８　商品名　コード　数値・・・ ９　　　小計　　　　数値・・・ １０　　合計　　　　数値・・・ 入力データ→日付（曜日）、区分、商品名、商品数、コードが表になっています。 まず入力フォームで日付をセットします。 次にbookに入力フォームで入力した日付から１ヶ月間を表示させます。 (1) 日付設定表に設定日付をキーにして入力データブックより検索 (2) 検索日付が一致すれば、該当商品名、コード、区分、商品数等を取得 (3) 区分:1の場合は、該当日付の下の６行に、区分:2の場合は、８行に設定(同一商品の場合は加算) 但し、新しい商品の場合は行を追加→ 区分:1の場合は6行以降に、区分:2)の場合は8行以降に追加する (4)区分ごとの小計を表示 (5)合計を表示 (6)bookのみ処理した日付と時間で保存 (7)入力データのブックを閉じる。 出来ているところは日付を貼り付けるまでは教えてもらいながらですができています。 明日中とのことなのでよろしくお願いします。