TAKA_Rのプロフィール

エクセルのユーザーフォームにチェックリストを用意しました CheckBox1～CheckBox5まであり、 CheckBox1をクリック（true）にすると、セルに“あ” CheckBox2をクリック（true）にすると、セルに“い” CheckBox3をクリック（true）にすると、セルに“う” CheckBox4をクリック（true）にすると、セルに“え” CheckBox5をクリック（true）にすると、セルに“お” を反映させようと思っています たとえば、 ・CheckBox1のみクリック（ｔｒｕｅ）で、Ａ１に“あ” ・CheckBox2のみクリック（ｔｒｕｅ）で、Ａ１に“い” ・CheckBox1、CheckBox3をクリック（ｔｒｕｅ）で、Ａ１に“あ”、Ａ２に“う” ・CheckBox２～CheckBox5をクリック（ｔｒｕｅ）で、Ａ１に“い“、Ａ２に“う“、Ａ３に”え”、Ａ４に“お” といった感じで、選んだチェック項目について、Ａ列においてＡ１から次々とデータを入力しようとしています そこで、 sheets1.Range("Ａ:Ａ").Clear If CheckBox1.Value = True Then sheets1.Cells(Rows.Count, 1).End(xlUp) = "あ" End If If CheckBox2.Value = True Then sheets1.Cells(Rows.Count, 1).End(xlUp) = "い" End If If CheckBox3.Value = True Then sheets1.Cells(Rows.Count, 1).End(xlUp) = "う" End If If CheckBox4.Value = True Then sheets1.Cells(Rows.Count, 1).End(xlUp) = "え" End If If CheckBox5.Value = True Then sheets1.Cells(Rows.Count, 1).End(xlUp) = "お" End If としました （実際は、CheckBoxの名前が1～5と数字ではないので、ｆｏｒは使いませんでした） すると、 CheckBox1～CheckBox5を全てクリック（ｔｒｕｅ）しても、Ａ１に“お”が反映されるだけで“あ”～”え”が入力されません どうすれば、思い通りになるのでしょうか 初歩的な質問だと思うのですが、よろしくお願いします

例えば、セルA1をコピーして セルA10000に貼り付けして また、セルA1をSelectすると 画面表示が下に行って、また、 上に戻ってくるのですが、 画面のフォーカスが動かないように出来ますか？ 分かりづらくて、すいません。

日々大量に出入りがある商品をエクセルで管理しようという無謀な試みをやっています(^^; 商品は、パレットに乗って搬入されます。倉庫には、それを並べる「コース」というスペースがあって、そこに十数列、３段で積み上げていきます。ただし、小パレットの場合、５段積みにすることもあります。 とりあえず入庫について質問です。 下図のように、Sheet1に入力したものを、倉庫に模したSheet2にVBAを使って「入庫」したいと思っています。 コースを指定して、空いている列を探し、その一段目から並べていきます。 それを、Sheet1のA2:D2を, (例えば空いていれば）Sheet2のB2:E:2にコピーして表現します。 10コースずつを1Sheetに表現していますから、Sheet1のG列で、コースを指定すると、250コース・25シートあるSheetが決まり、その第一段目の空いているセルを探して、そこから三段ずつコピーを始めます。 コピーの際は、Sheet1のF列に入力するパレット総数を３で割ってくり返します。 （下図の場合は、30パレットですから、3段10列に並びます) そして、三段積んで列を移り、また三段積んで列を移るというコピーをしたいと思っています。 どうすればいいのでしょうか？ 今は、Sheet2～しかなく、入庫帳票を見ながら、範囲指定→コピペをくり返す膨大な作業に忙殺されています。 小パレットの際の条件分岐もしなければならないし、入庫後の商品の移動も考えなければなりません。 どなたか、お知恵をお願いします。

VBAビギナーのmaruです Excel2010のワークシート上の範囲(Range（”E12:K120“）)内の 各セルに条件付き書式（複数あり）にてフォント色を赤く（RGB 255,0,0） 変更したセル内のデータ（数字）のみ削除（””)するVBAを行いたいのですが 以下のコードでは、「セルの書式」で設定したフォント色で削除されてしまい 条件付き書式で変更された赤文字に反映されません ご教授お願い致します Private Sub CommandButton4_Click() 'データ入力セル内の赤文字の削除 Dim rd As Range For Each rd In Range("E12:K120") For i = 1 To rd.FormatConditions.Count If rd.FormatConditions(i).Font.Color = RGB(255, 0, 0) Then rd.Value = "" End If Next Next End Sub 以上、宜しくお願い致します

日々大量に出入りがある商品をエクセルで管理しようという無謀な試みをやっています(^^; 商品は、パレットに乗って搬入されます。倉庫には、それを並べる「コース」というスペースがあって、そこに十数列、３段で積み上げていきます。ただし、小パレットの場合、５段積みにすることもあります。 とりあえず入庫について質問です。 下図のように、Sheet1に入力したものを、倉庫に模したSheet2にVBAを使って「入庫」したいと思っています。 コースを指定して、空いている列を探し、その一段目から並べていきます。 それを、Sheet1のA2:D2を, (例えば空いていれば）Sheet2のB2:E:2にコピーして表現します。 10コースずつを1Sheetに表現していますから、Sheet1のG列で、コースを指定すると、250コース・25シートあるSheetが決まり、その第一段目の空いているセルを探して、そこから三段ずつコピーを始めます。 コピーの際は、Sheet1のF列に入力するパレット総数を３で割ってくり返します。 （下図の場合は、30パレットですから、3段10列に並びます) そして、三段積んで列を移り、また三段積んで列を移るというコピーをしたいと思っています。 どうすればいいのでしょうか？ 今は、Sheet2～しかなく、入庫帳票を見ながら、範囲指定→コピペをくり返す膨大な作業に忙殺されています。 小パレットの際の条件分岐もしなければならないし、入庫後の商品の移動も考えなければなりません。 どなたか、お知恵をお願いします。