layy の回答履歴

E4～Z4セルに、その列を表示させる場合は１を、させない場合は０が立つようにして If Range("E4").Value = 0 Then Columns("E:E").Select Selection.EntireColumn.Hidden = True End If If Range("F4").Value = 0 Then Columns("F:F").Select Selection.EntireColumn.Hidden = True End If とZまで繰り返したマクロにしてみたらできましたが、 例えばDD列まであるような横長の表の場合、とても長いマクロになってしまいます。 もっとすっきりとしたものにできるでしょうか。 エクセル2003使用のマクロ初心者です。 よろしくお願いします。

excelで工数表を作っていますが、もっと効率よくする為に、ご教授ねがえませんでしょうか？ A列の数字を自動的に反映させたいのです。 例えばH3に1と入力したら自動的にA3の数値分I3、J3にも１が入力されてほしいです。 プラス色もつけたいです。 そして、E列F列P列Q列にかぶる場合そこをはぶいて次の列から入力されてほしいです。 分かる方いらっしゃいましたら、よろしくお願いいたします。。。

宜しくお願いします。 私はＯｆｆｉｃｅ２００３を使っています。Ｅｘｃｅｌで顧客管理をする為に新規のお客様の登録をしています。 例） Ａ列・・・日付 Ｂ列・・・名前 Ｃ列・・・住所 　　　・ 　　　・ 　　　・ と有ります、毎日登録する為に以前登録した方が居られるので複数回登録した方を抽出したいのです。何か良い方法が無いでしょうか？ 今は名前でソートして捜していますが登録者数が多くなり大変な作業になりました。 宜しくお願いします。

マイクロソフトアクセス初心者です。 現在、アクセスでデータベースを作成しています。 2つのフォーム（フォーム(1)、フォーム(2)）、2つのテーブル（入力情報、マスタ）、2つのテーブルをもとにした1つのレポートを作成しています。 『フォーム(1)』のテキストボックスAに入力された値を、Dlookup関数で『フォーム(2)』のテキストボックスBに数値を参照しています。 『フォーム(2)』のテキストボックスに表示された値を、『フォーム(2)』に設置されたコマンドボタンをクリックすると、VBAで『テーブル入力情報』のフィールドAに入力されるようにしています。フィールドAについてのマスタとなるテーブルが『テーブルマスタ』です。 リレーションシップを設定せず、ただ単に値を入力することは出来るのですが、レポートを作成するにあたって、『テーブル入力情報』と『テーブルマスタ』のフィールドAに1（テーブルマスタ）対多（テーブル入力情報）のリレーションシップを設定したいと思っています。 リレーションシップを設定し、テキストボックスBに表示された数値を『テーブル入力情報』に入力する際、『テーブルマスタ』から該当するデータを選択して『テーブル入力情報』に入力されるようにしたいと思うのですが、現状では、リレーションシップを設定すると、入力値が真っ白になってしまい、レポートにも入力したデータが反映されません。 ちなみに、入力する際はフィールドA=Me.テキストボックスBのようにしています。 何か良い解決策がありましたら、是非教えていただけませんでしょうか？ 分かり難い文章かと思いますが、どうぞ宜しくお願い申し上げます。

宜しくお願いします。 私はＯｆｆｉｃｅ２００３を使っています。Ｅｘｃｅｌで顧客管理をする為に新規のお客様の登録をしています。 例） Ａ列・・・日付 Ｂ列・・・名前 Ｃ列・・・住所 　　　・ 　　　・ 　　　・ と有ります、毎日登録する為に以前登録した方が居られるので複数回登録した方を抽出したいのです。何か良い方法が無いでしょうか？ 今は名前でソートして捜していますが登録者数が多くなり大変な作業になりました。 宜しくお願いします。

こんにちは。Access2010を使用し更新クエリをかけたいと思います。 テーブル名、TABLE。対象フィールド名「ID」となります。 やりたいことは、IDには文字列が入っています。その文字列を下記の ルールによって更新をかけたいと思っています。 文字列が7桁以下なら頭に0を付けて8桁にする。 文字列が9桁以上12桁以下なら頭に0を付けて13桁にする。 文字列が8桁なら何もしない（そのまま）。 文字列が13桁なら何もしない（そのまま）。 14桁以上であるならば何もしない（そのまま）。 下記の関数を作り、「レコードの更新」エリアに埋め込みアップデートをしようとすると 意図した更新になりません。 IIF(LEN(TRIM([id]))<=8,FORMAT(TRIM([id]),"00000000"),FORMAT(TRIM([id]),"0000000000000")) どのような関数を組めば、良いかお教え頂けませんでしょうか？ よろしくお願い致します。

こんにちは。Access2010を使用し更新クエリをかけたいと思います。 テーブル名、TABLE。対象フィールド名「ID」となります。 やりたいことは、IDには文字列が入っています。その文字列を下記の ルールによって更新をかけたいと思っています。 文字列が7桁以下なら頭に0を付けて8桁にする。 文字列が9桁以上12桁以下なら頭に0を付けて13桁にする。 文字列が8桁なら何もしない（そのまま）。 文字列が13桁なら何もしない（そのまま）。 14桁以上であるならば何もしない（そのまま）。 下記の関数を作り、「レコードの更新」エリアに埋め込みアップデートをしようとすると 意図した更新になりません。 IIF(LEN(TRIM([id]))<=8,FORMAT(TRIM([id]),"00000000"),FORMAT(TRIM([id]),"0000000000000")) どのような関数を組めば、良いかお教え頂けませんでしょうか？ よろしくお願い致します。

エクセル　初心者です 教えて戴きたいのですが 会社の部署にて33人在籍しております。 3人1班で構成しており11班あります。 一週間交代で班を交代します。 エクセルで管理したいと考えているのですが できれば11週全てかぶらないようにしたいのですが マクロなどでできるでしょうか？ 　例えば　1さん～３３さんがいたら シートに毎週の記録をしていき １さん１１さん２２さんは2週目以降当たらないなど 説明がうまくできませんがよろしくお願いします

こんにちは。Access2010を使用し更新クエリをかけたいと思います。 テーブル名、TABLE。対象フィールド名「ID」となります。 やりたいことは、IDには文字列が入っています。その文字列を下記の ルールによって更新をかけたいと思っています。 文字列が7桁以下なら頭に0を付けて8桁にする。 文字列が9桁以上12桁以下なら頭に0を付けて13桁にする。 文字列が8桁なら何もしない（そのまま）。 文字列が13桁なら何もしない（そのまま）。 14桁以上であるならば何もしない（そのまま）。 下記の関数を作り、「レコードの更新」エリアに埋め込みアップデートをしようとすると 意図した更新になりません。 IIF(LEN(TRIM([id]))<=8,FORMAT(TRIM([id]),"00000000"),FORMAT(TRIM([id]),"0000000000000")) どのような関数を組めば、良いかお教え頂けませんでしょうか？ よろしくお願い致します。

1.InputBoxを3回表示させます。 2.ユーザーに入力してもらいます。 入力できるのは半角英数字のみでそれ以外は エラーメッセージを出したいです。 3.1回目は18桁か22桁以外の場合、 2回目と3回目は4桁以外の場合はMsgBoxを表示して 再入力を促します。 4.InputBoxに入力された値の3個を連結した値で Sheet2のA列を検索して 合致したらその行のG列の値を見ます。 5.G列に"済"とあったら MsgBoxを表示して 中止するか継続するか判断します。 6.継続した場合 その該当行の各列の値をSheet1にそれぞれ転記します。 Sheet2の該当行のB列→Sheet1のセルB3 Sheet2の該当行のC列→Sheet1のセルC3 Sheet2の該当行のD列→Sheet1のセルD3 Sheet2の該当行のE列→Sheet1のセルE3 Sheet2の該当行のF列→Sheet1のセルF3 7.かつSheet2の該当行のG列に　済　と転記します。 すでに済が記入されている場合は上書です。 以下のように作成しましたがエラーで動かなくて動作確認が出来ません。 どう直せばいいのか教えてください。 イレギュラー時の対応処理が必要だとも思うのですが動作しない為 思いつきません。 記述が滅茶苦茶なのですがこれが限界です。申し訳ありません。 Sub 表示板作成() Dim 検索値1 Dim 検索値2 Dim 検索値3 Dim 検索値4 Dim 判定値 Dim 判断 Dim 記録 Dim 確認 検索値4 = 検索値1&検索値2&検索値3 Do 検索値1 = Application.InputBox("型番を入力してください") If Len(検索値) < 18 Then MsgBox "18桁未満です。再入力しますか？" Loop Else Exit Do '検索値2と3も上記と同じ記述をここへ入れる '（現在省略） End If 判定値 = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 7, 0) If 判定値 = "済" Then 判断 = MsgBox("発行済みです。再度データ取得しますか？", vbYesNo) Else Select Case 判断 Case vbNo Exit Sub Case vbYes Range("B3").Value = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 2, 0) Range("B4").Value = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 3, 0) Range("B5").Value = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 4, 0) Range("B6").Value = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 5, 0) Range("B7").Value = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 6, 0) End Select End If 記録 = Application.WorksheetFunction.VLookup(検索値4.Value, Worksheets("Sheet2").Range("A2:G10000"), 7, 0) 記録.Value = "済" 確認 = MsgBox("これは●●用です。いいですか？", vbYesNo) Select Case 確認 Case vbNo Exit Sub Case vbYes Call 印刷 End Select End Sub

よろしくお願いします。 レポートを作成し、その中に文字と添付画像を表示させるようにA4　１ページに作成しました。 しかしすべてのデータに添付画像があるわけではないので、そのまま印刷すると、画像なしのデータでは画像部分が空白になってA4印刷されます。 非常にもったいない気がするので、この画像なしのデータの印刷時には画像部分を印刷せず、次のレポートを続けて印刷することはできるのでしょうか。 これが不可能であるならば、これに近い表示ができる方法をご存じでしたらご教授ください。 win7 64 バージョン２００７です よろしくお願いします。

エクセル　初心者です 教えて戴きたいのですが 会社の部署にて33人在籍しております。 3人1班で構成しており11班あります。 一週間交代で班を交代します。 エクセルで管理したいと考えているのですが できれば11週全てかぶらないようにしたいのですが マクロなどでできるでしょうか？ 　例えば　1さん～３３さんがいたら シートに毎週の記録をしていき １さん１１さん２２さんは2週目以降当たらないなど 説明がうまくできませんがよろしくお願いします

エクセル　初心者です 教えて戴きたいのですが 会社の部署にて33人在籍しております。 3人1班で構成しており11班あります。 一週間交代で班を交代します。 エクセルで管理したいと考えているのですが できれば11週全てかぶらないようにしたいのですが マクロなどでできるでしょうか？ 　例えば　1さん～３３さんがいたら シートに毎週の記録をしていき １さん１１さん２２さんは2週目以降当たらないなど 説明がうまくできませんがよろしくお願いします

WindowsXP（SP2）環境で、複数のテキストファイル内にある文字列から自端末名を検索し、その結果（どのテキストファイル内にあったか）で処理を分岐するツールを作成したいのですが、何かいい方法はありますでしょうか。 テキスト内は下記のような作りにしようと思っています。 バッチファイルかvbsが理想です。 aaa bbb ccc ・ ・ ・

VB2010で拡張子なしのファイル複数個から 検索した文字列が含まれているファイルを見つけだしたいのですが どのように作るのがベストでしょうか？ できれば拡張子にtxtをつけて開くような変換は行わずにしたいです。

製品のコードを分類別に表にしたいと考えています。 例えば コード　　　　　機能１　機能２　機能３ AABBCCC　　AA　　　BB　　　CCC のような感じです。 しかし、あるメーカーのコードは機能部分の桁数が決まっていません。 AABCCC、ABBBCC、AABBBBCC、などのように1～4桁ぐらいの英数字で機能分けされています。 機能１や機能２に登場する組み合わせは決まっています。 まずはExcelやAccessでの表作りの検討を始めているのですが、 どのように自動化できるものでしょうか。 Officeシリーズでは無理なのでしょうか。。。 どうぞよろしくお願いします。

いつもお世話になっております。 今回はＡＣＣＥＳＳについてご指導お願い致します。 テーブルからフォームを作成したのですが、テキストボックスで1件目の入力データの内容を2件目入力するときに、そのまま残しておきたいのです。 テキストボックスには日付や品番など入力していくのですが、同じ場合は入力を省きたいと思っています。難しいでしょうか・・？ 最近ＡＣＣＥＳＳの勉強をはじめたところなので、用語などもほとんどわかりません。 宜しくお願い致します。

エクセル初心者です。エクセル２０１０を使用しています。 とあるホームページから、ページをコピーして、エクセルに「テキストで貼り付け」をおこない、 A列に8行の項目が入ります。この8行と次の8行の間には、自然に空白行が1行ずつ入ります。 これは、完全に手作業です。 次に、下記の作業を、マクロの自動記録を相対参照で行います。 上記のエクセルのデータを、1つめの8行のデータをコピーして(A１からA8)、C1に「行と列を入れ替え」を選択してC１からJ１に貼り付けます。 その後は、次のデータのまとまりのA10のセルに移ります。これをCtrl+a を押し続けることで、数百件か多いときは４０００件ほどの並べ替えをしています。 「データがある間は、この処理を繰り返す。」 というマクロにしたいのですが、参考書等を見ながらチャレンジしてもうまくいきません。 わかる方、教えていただけますか。 以下が、マクロの自動記録でできた物です。データの個数は数百のこともあれば４０００件のこともあります。 Sub 行列入れ替え8行() ' ' 行列入れ替え8行 Macro ' ' Keyboard Shortcut: Ctrl+a ' ActiveCell.Range("A1:A8").Select Selection.Copy ActiveCell.Offset(0, 2).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True ActiveCell.Offset(9, -2).Range("A1").Select End Sub どうぞ、ご指導よろしくお願いいたします。

お世話になります。 次に挙げる大阪市内の駅を効率よく回ろうとしています。 そこで，(1)どの順番で回るべきか，(2)各駅の間でどの交通手段を使うべきかの2点についてご教示いただきたく存じます。 お時間ございます折で構いませんので，ご回答のほど宜しくお願いいたします。 ・JR北新地駅　ないし　京阪渡辺橋駅 ・地下鉄谷町九丁目駅　ないし　大阪上本町駅 ・JR大正駅　ないし　地下鉄大正駅 ・地下鉄淀屋橋駅　ないし　地下鉄北浜駅

先ほどもこちらで質問をさせていただいたものです。m（_ _ ）m 　＜質問★エクセル関数に詳しい方、よろしくお願いします＞にて・・・ 　＜回答していただいた関数＞ 　　　=INDEX(Sheet2!$C$1:C$10,MATCH(2,MMULT(ISNUMBER(FIND(A1:B1,Sheet2!$A$1:$B$10))*1,　　　　　　{1;1}),0)) 上記の関数を教えていただき、無事に解決をいたしました。 こちらの質問掲示板で初めて投稿させていただきましたが、 とても早くご回答を頂き本当にありがとうございます。 ********************************************************************************* 追加のお願いなのですが・・・ 今度は、＜シート１＞のb列の名前も複雑になった場合、★ｃ列を抽出することは可能でしょうか？ ********************************************************************************* ＜シート１＞　　　　　　　　　　　　＜シート２　データ＞ a列　　b列　　　 　　★c列　　　　a列　　 b列　　　　 c列 101　　キウイＡ　　　#N/A　　　　101　　甘いキウイ　北海道 201　　キウイＢ　　　#N/A　　　　101　　甘いばなな　北海道 101　　ばななＡ　　　#N/A　　　　101　　オレンジ　　 北海道 201　　ばななＢ　　　#N/A　　　　101　　いちご小　　 北海道 101　　オレンジ　　　#N/A　　　　101　　メロン小　　 北海道 201　　オレンジ　　　#N/A　　　　201　　黄色キウイ　沖縄県 101　　いちご　　 　　#N/A　　　　201　　ばなな小　　沖縄県 201　　いちご　　 　　#N/A　　　　201　　オレンジ大　沖縄県 101　　メロンＡ　 　　#N/A　　　　201　　いちご大　　沖縄県 201　　メロンＢ　 　　#N/A　　　　201　　メロン大　　 沖縄県 また、関数に詳しい方がおられましたら、どうかご教示お願いいたします。 m（_ _）m