fumufumu_2006 の回答履歴

エクセル2000を使っています。 VBAでセル内に取り消し線が引いてある所の行を削除したいのですが 取り消し線を引いてあるセルを検出するコードがわかりません。 　どなたかわかりましたら、教えてください。

毎度お世話になります。 下記プログラミングですが、 シャーペンまたはボールペンがコンボボックス1で 選択された場合はコンボボックス2で10束または50束の選択肢となり 消しゴムまたはシャー芯がコンボボックス2で 選択された場合はコンボボックス2で100コまたは1000コの選択肢としたいのですが 他の方法がありますでしょうか。 宜しくお願い致します。 If Me.ComboBox1.Value = "シャーペン" Or Me.ComboBox1.Value = "ボールペン" Then ComboBox2.Style = fmStyleDropDownCombo ComboBox2.RowSource = "" ComboBox2.Clear ComboBox2.AddItem "10束" ComboBox2.AddItem "50束" ComboBox2.ListIndex = -1 End If If Me.ComboBox1.Value = "消しゴム" Or Me.ComboBox1.Value = "シャー芯" Then ComboBox2.Style = fmStyleDropDownCombo ComboBox2.RowSource = "" ComboBox2.Clear ComboBox2.AddItem "100コ" ComboBox2.AddItem "1000コ" ComboBox2.ListIndex = -1 End If

毎度お世話になります。 下記プログラミングですが、 シャーペンまたはボールペンがコンボボックス1で 選択された場合はコンボボックス2で10束または50束の選択肢となり 消しゴムまたはシャー芯がコンボボックス2で 選択された場合はコンボボックス2で100コまたは1000コの選択肢としたいのですが 他の方法がありますでしょうか。 宜しくお願い致します。 If Me.ComboBox1.Value = "シャーペン" Or Me.ComboBox1.Value = "ボールペン" Then ComboBox2.Style = fmStyleDropDownCombo ComboBox2.RowSource = "" ComboBox2.Clear ComboBox2.AddItem "10束" ComboBox2.AddItem "50束" ComboBox2.ListIndex = -1 End If If Me.ComboBox1.Value = "消しゴム" Or Me.ComboBox1.Value = "シャー芯" Then ComboBox2.Style = fmStyleDropDownCombo ComboBox2.RowSource = "" ComboBox2.Clear ComboBox2.AddItem "100コ" ComboBox2.AddItem "1000コ" ComboBox2.ListIndex = -1 End If

毎度お世話になります。 下記プログラミングですが、 シャーペンまたはボールペンがコンボボックス1で 選択された場合はコンボボックス2で10束または50束の選択肢となり 消しゴムまたはシャー芯がコンボボックス2で 選択された場合はコンボボックス2で100コまたは1000コの選択肢としたいのですが 他の方法がありますでしょうか。 宜しくお願い致します。 If Me.ComboBox1.Value = "シャーペン" Or Me.ComboBox1.Value = "ボールペン" Then ComboBox2.Style = fmStyleDropDownCombo ComboBox2.RowSource = "" ComboBox2.Clear ComboBox2.AddItem "10束" ComboBox2.AddItem "50束" ComboBox2.ListIndex = -1 End If If Me.ComboBox1.Value = "消しゴム" Or Me.ComboBox1.Value = "シャー芯" Then ComboBox2.Style = fmStyleDropDownCombo ComboBox2.RowSource = "" ComboBox2.Clear ComboBox2.AddItem "100コ" ComboBox2.AddItem "1000コ" ComboBox2.ListIndex = -1 End If

ワークシートSheets1上のセルA1に、次のような文字列があり、 Length 50.0mm この中の、数字の部分だけをユーザーフォームのtextbox1に抜き出したいと思っています。 Length と、単位mmは全ての場合で共通ですが、数字は50.0の場合も5.0の場合もあり、文字数がまちまちです。 textbox1.value=Mid(Sheets("Sheets1").Range("A1").value, 8,Len(Sheets("Sheets1").Range("A1").value-2) のようにMid関数の引数にLen関数を使ったり、 x=Len(Sheets("Sheets1").Range("A1").value textbox1.value=Mid(Sheets("Sheets1").Range("A1").value, 8,x-2) のように変数xを介してみたりしたのですが、mmが表示されてしまいます。 （ちなみにLenを使わずx=13と書くと、mmなしの数値だけがうまく表示されます） VBAはトライ＆エラーで使っている状態で、セルの取り扱い(.valueとか.textとか)や変数の宣言はかなり適当です。 この辺りが間違っているんでしょうか？？ できればMidとLenを使った解決法、それが無理なら他の方法でも結構ですので、ご教授頂けると助かります。 よろしくお願いします。

VBA初心者です。 突如作成を依頼されてしまいました。 どなたかお手すきでしたら、よろしくお願いします。 まず２つのフォルダＡ（新しいデータのExcelファイル）、 フォルダＢ（古いデータのExcelファイル）があります。 それぞれには同じ名前のExcelファイルが200個近く入っているのですが、 新旧同じ名前同士のファイルを比較し、差分箇所に色をつけるという 作業をしたいのです。（新旧のファイルどちらにも色を付ける） できればフォルダＡとフォルダＢを選択したら勝手に処理してくれるという プログラムにしたいのですが、どのようにしたらよろしいでしょうか。 数値の比較ですが、範囲を指定してマッチしてなければ色付け、という 処理でもいいかな・・と思っております。 どうかよろしくお願いします。

毎度お世話になります。 下記プログラミングですが、 シャーペンまたはボールペンがコンボボックス1で 選択された場合はコンボボックス2で10束または50束の選択肢となり 消しゴムまたはシャー芯がコンボボックス2で 選択された場合はコンボボックス2で100コまたは1000コの選択肢としたいのですが 他の方法がありますでしょうか。 宜しくお願い致します。 If Me.ComboBox1.Value = "シャーペン" Or Me.ComboBox1.Value = "ボールペン" Then ComboBox2.Style = fmStyleDropDownCombo ComboBox2.RowSource = "" ComboBox2.Clear ComboBox2.AddItem "10束" ComboBox2.AddItem "50束" ComboBox2.ListIndex = -1 End If If Me.ComboBox1.Value = "消しゴム" Or Me.ComboBox1.Value = "シャー芯" Then ComboBox2.Style = fmStyleDropDownCombo ComboBox2.RowSource = "" ComboBox2.Clear ComboBox2.AddItem "100コ" ComboBox2.AddItem "1000コ" ComboBox2.ListIndex = -1 End If

エクセルにて、下記のように、ランダムにデータが並んでいます。 　　　A　　　　　B　　　　　　C　　　　　　　D　　　・・・・ １　みかん　　東京　　　南 ２　　　　　　　３人　　　　東 ３　　　　　　　　　　　　　　　　　　　　　車 ４----------------------------------------- ５　もも　　　茨城　　　北 ６　　　　　　　４人　　　西 ７　　　　　　　川 ８　　　　　　　　　　　東京　　　　　　　　足 ９----------------------------------------- 10　　　　　　　　　　　　　・ 　　　　　　　　　　　　　　・ 　　　　　　　　　　　　　　・　　　　　　　　　　　 と約２万行がならんでいます。（最小３行　最大５行でひとつのかたまり） 　　 これらを３行には２行挿入、４行には１行を最後に挿入して必ずどこのかたまりも５行にする方法はマクロ、関数等などでありますでしょうか？ 何卒、よろしくお願いいたします。

Access初心者です。 フォーム上のテキストボックスのプロパティから「入力規則」を設定し、条件違反の場合には任意のエラーメッセージを表示したいと考えています。 プロパティの「エラーメッセージ」に複数行のメッセージを表示することは可能でしょうか。 また、メッセージボックスの題名を変更したり、記号を「情報」マークから「警告」マークなどに変更することはできますでしょうか。 方法をご存知の方、ご教示いただければ幸いです。 よろしくお願いいたします。

Visual Basic 2005 Express Editionで、 フォーム上のボタンをクリックすると変数内の文字列を Accessフォームの特定のフィールドにセットするというVBを作りたいのですが、 AccessのVBは未経験であるため難儀しております。 Accessのフィールドに値を入れるところがわかりません。 AccessVB初心者の同僚は以下のように教えてくれましたがまったく動きません。 Dim copy_text Dim myAccess copy_text = "○○株式会社" set myAccess = CreateObject("Access.Application") myAccess.Forms("フォーム1").Controls("会社名").text = copy_text 本来"○○株式会社"は変数ではなくクリップボード内に入っています。 なのでクリップボード内の値をアクセスのフィールドにペーストするのでもかまいません。 ネットはいろいろ調べていますが、未経験の自分は基礎編・入門編であっても理解できません。 未経験の自分が作ることに問題がありますが、他にやる人がいないので仕方がありません。 どなたか助けて下さい（涙）

タイトルのとおりですが、入力項目が多いせいか、表示されている 内容が全てではありません。 お手数ですが、対処法をご存知の方はご教授お願い致します。

クエリで抽出がかけられなくて困っています。 売上: [単価]*[個数]の列フィールドで1以上を抽出かけたいのですが（0値になるものがあるので）、抽出条件に“>0”と入れてもパラメータクエリが出てしまって駄目です。 要するに、レポート時に、売上が0値またはnull値のレコードは抽出をかけたくないようにしたいのです。 どなたか教えてください。 バージョンは2003です。

VBAマクロ初心者です。実は、次のようなコードをどのように書けばよいのか教えて下さい。 例えば、 Aは、デスクトップ上のエクセルファイルの"Sheet1"のA1：B4のA列は数値、B列は文字列。 Aをデスクトップ上の別のフォルダーにあるエクセルファイルの"Sheet1"のA1：B4にデータをコピーをするのですが・・・。まったくわかりません。または、説明が下手でやりたい事が伝わらないかもしれませんが、よろしくお願いいたします。

お世話になります。 VBA初心者です、よろしくお願いいたします。 掲題にありますとおり、他のシートの特定の列を検索(抽出?)しアクティブになっているシートの特定の列に貼り付ける作業を自動で行わせたいと思っております。複数ある行の中から必要な行だけを抽出して、貼り付けるのでフォーマットを整えると思っていただければ結構です。具体的には、 [Sheet1]のデータ↓( | ←は罫線と思ってください。列の順番は毎回A→Zの順番とは限りませんが、記載内容は同じです。) A | B | C | D | E … | Z 1 | 2 | 3 | 4 | 5 … |26 a | b | c | d | e … | z 1a| 2b| 3c| 4d| 5e… |26z これらのデータから、特定の必要な列を選んで[Sheet2]に貼り付けを自動で行わせたいのです↓。 [Sheet2]B,G,A,W,O,Iのデータのみ必要な場合 B | G | A | W | O | I 2 | 7 | 1 | 23| 15| 9 b | g | a | w | o | i 2b| 7g| 1a|23w|15o| 9i 行数は最大で500行を超えます。HLOOKUPを各セルに書き込んで置けばよいのですが、ドッラグでは式が正しく書き込めなくて。。。 "=HLOOKUP(A1,Sheet1!A:Z,2,0)"←"A1"はA2,A3,A4となるのですが"2"がずっと2のままなので。 [Sheet1]の特定の行のコピー&ペーストなのですが、[Sheet2]の貼り付け先が1行目からではないので、何かしらの工夫が必要だと思うのですが。。。 たとえば Columns("B:B").Select Selection.Copy Sheets("Sheet2").Select Cells(2, 1).Paste こう言う事って出来ませんよね？ 私の意は伝わりましたでしょうか？なにとぞよろしくお願いいたします。

accessでレポート機能について、質問です。 エクセルでいうフィルタ機能みたいなものはあるのでしょうか。 例えば、以下の場合、職位="B"だけレポートで表示したい場合、 どうすればよいのでしょう？ CD　職位　所属 01　　A　 東京 02　　B　 東京　→　このデータだけを表示 03　　A　 大阪 １）クエリを作って、レポートで表示するしかないのでしょうか？ ２）レポートのデザインで条件指定ができるのでしょうか？ ソートの条件も変えたいのですが、どの項目をソートするかは、 どこで指定できるのでしょうか？ 要はレポートの形式は１つで、様々な抽出条件とソート条件で レポート表示したいのです。

accessでレポート機能について、質問です。 エクセルでいうフィルタ機能みたいなものはあるのでしょうか。 例えば、以下の場合、職位="B"だけレポートで表示したい場合、 どうすればよいのでしょう？ CD　職位　所属 01　　A　 東京 02　　B　 東京　→　このデータだけを表示 03　　A　 大阪 １）クエリを作って、レポートで表示するしかないのでしょうか？ ２）レポートのデザインで条件指定ができるのでしょうか？ ソートの条件も変えたいのですが、どの項目をソートするかは、 どこで指定できるのでしょうか？ 要はレポートの形式は１つで、様々な抽出条件とソート条件で レポート表示したいのです。

他のEXCELに関するサイトでもお聞きしているのですが、 EXCELで出来るのかわからないのですが知っている方がいらっしゃれば教えてください。 １つ目のシートの列データとして、例えば、 セルA1に、所属ID セルB1に、1;2;3;4;5;6;7とセミコロンで続けられたデータがあるとします。 ２つ目のシートには下記のような所属情報のデータ(マスタのようなもの)があるとします。 セルA1に、1 セルB1に、総務 セルA2に、2 セルB2に、経理 セルA3に、3 セルB3に、人事 ： １つ目のシート内の1;2;3;4;5;6;7のデータをわかり易いようにマスタにある総務;経理;人事などのようなデータへ変換させることは出来るのでしょうか？ ============================================== 結果イメージ、１つ目のシートのセルB1の内容 （現在）1;2;3;4;5;6;7 （変換後）総務;経理;人事・・・ ============================================== すみませんが、よろしくお願いします。

お世話になります。 VBA初心者です、よろしくお願いいたします。 掲題にありますとおり、他のシートの特定の列を検索(抽出?)しアクティブになっているシートの特定の列に貼り付ける作業を自動で行わせたいと思っております。複数ある行の中から必要な行だけを抽出して、貼り付けるのでフォーマットを整えると思っていただければ結構です。具体的には、 [Sheet1]のデータ↓( | ←は罫線と思ってください。列の順番は毎回A→Zの順番とは限りませんが、記載内容は同じです。) A | B | C | D | E … | Z 1 | 2 | 3 | 4 | 5 … |26 a | b | c | d | e … | z 1a| 2b| 3c| 4d| 5e… |26z これらのデータから、特定の必要な列を選んで[Sheet2]に貼り付けを自動で行わせたいのです↓。 [Sheet2]B,G,A,W,O,Iのデータのみ必要な場合 B | G | A | W | O | I 2 | 7 | 1 | 23| 15| 9 b | g | a | w | o | i 2b| 7g| 1a|23w|15o| 9i 行数は最大で500行を超えます。HLOOKUPを各セルに書き込んで置けばよいのですが、ドッラグでは式が正しく書き込めなくて。。。 "=HLOOKUP(A1,Sheet1!A:Z,2,0)"←"A1"はA2,A3,A4となるのですが"2"がずっと2のままなので。 [Sheet1]の特定の行のコピー&ペーストなのですが、[Sheet2]の貼り付け先が1行目からではないので、何かしらの工夫が必要だと思うのですが。。。 たとえば Columns("B:B").Select Selection.Copy Sheets("Sheet2").Select Cells(2, 1).Paste こう言う事って出来ませんよね？ 私の意は伝わりましたでしょうか？なにとぞよろしくお願いいたします。

VBAマクロ初心者です。実は、次のようなコードをどのように書けばよいのか教えて下さい。 例えば、 Aは、デスクトップ上のエクセルファイルの"Sheet1"のA1：B4のA列は数値、B列は文字列。 Aをデスクトップ上の別のフォルダーにあるエクセルファイルの"Sheet1"のA1：B4にデータをコピーをするのですが・・・。まったくわかりません。または、説明が下手でやりたい事が伝わらないかもしれませんが、よろしくお願いいたします。

　例えば、マクロで以下のような作業をしたいのです。 　あるワークシート内でグラフAがあるとします。 　10種類のサンプルデータがある場合、各データをグラフAに表示させて、別のシートにコピーして10個のグラフをそれぞれ比較したいのですが、元のデータを消してしまうとグラフ内の表示まで消えてしまいます。 　 　元のデータを消してもグラフの表示を残しておく方法はないでしょうか？どこかで解決方法を見たような気がするのですが、思い出すことが出来ず困ってます。 　詳しい方教えてください。よろしくお願いします！