Excel（エクセル）

一つのシートに４つの四角があるのですが 一つのシートに一つの四角だけを使って、Ａ４用紙に４つ印刷する方法はありますか？ プリンタの設定でそういう設定にするしかないのでしょうか？ 今のようにシートに４つ四角を作ればいいのですが 実際は資格ではなくフォーマットに数値や文字を入れて、 印刷だけはＡ４用紙に４枚印刷するので １つの四角を４つコピペするのが面倒です。

現在選択中のセルの中に空白があるのなら と言うコードを作りたいのですが Sub test() Dim r As Range Set r = Selection 'if rの中に空白があるなら then MsgBox "空白セルがあります" 'end if Set r = Nothing End Sub ここまでしかわかりませんでした。 ｉｆステートメントどうすればいいか教えていただけますか？ ご教授よろしくお願いします。

関数のＶＬＯＯＫＵＰでどうやればいいのかよくわからないものがあります。 シートＡとシートＢにそれぞれコード（Ａ000のようなもの）が記載されており、シートＡにはおおよそ900ほど。シートＢには16000ほどが載っています。 今回ＶＫＯＯＫＵＰでしたいことは、シートＢからシートＡと同じコードをピックアップしたいんです。 シートＡにある900ほどのこーどはすべて違う種類のコードでして、シートＢの16000ほどのコードの中にシートＡの900ほどのコードと同じコードが紛れ込んでいます。 このシートＢにあるコードからシートＡと同じコードをＶＬＯＯＫＵＰを使用して抽出したいのです。 大雑把な質問で申し訳ありませんが、何かいいやり方はありませんでしょうか？　もしわかりにくいようでしたらご指摘いただければ追加で質問させていただきます よろしくお願いします

こんばんは。 お世話になります。 エクセルVBAにてアクセスからデータを取得し、その一部をロックしたいです。 (取得方法には色々あるかと思います。 経験が浅いためどう表現すれば適切か自信がありませんが 「ADOコネクションオブジェクトとADOレコードセットオブジェクトにて実施しています。」) 【VBAの仕様の説明】 「読込」ボタンを押すと、B12～AA1000のエリアのデータを一掃して、 そこに条件によりレコード数が変わりますが、アクセスのデータをセットしています。 その後、これらの出力されたレコードについてエクセル上にて値を書き換えたのちに 「更新」ボタンを押すと、アクセスに更新に行くというものです。 このときB,C,D,E列については、更新処理時に重要なものであり、F列以降と異なり 書き換えてはいけないものです。 【実現したいこと】 このエクセルを開いてから閉じるまでの間、いつでもB12～E1000は手入力不可にしたいです。 ただし、エクセルを開いていきなりロックをしてしまうと、「読込」を押したときに アクセスのデータを出力するときにエラーになってしまいますので 読込ボタンを押した後はB12～E1000のロックを外したいです。 これが難しいようであれば、エクセルを開いてから「読込」を押すまでの間は ロックをかけなくてもよいです。 ある程度ググったので シートを保護する　＆　特定のセルのLOCKをfalseにする　を適切なタイミングで 実施するのだとは理解していますが、実装しようとすると 「RangeクラスのLockedプロパティを設定できません」というエラーが出てしまって 詰まってしまっています。 よろしくお願いいたします。 ↓↓↓↓ソースです。↓↓↓↓ Private adoCn As Object 'ADOコネクションオブジェクト Private adoRs As Object 'ADOレコードセットオブジェクト Private strSQL As String 'SQL文 Private Const DBpath As String = "C:\zaiko.accdb" '接続するファイル（2007～）のフルパス '---------ファイルが開けない場合のエラーを追加 Private file_error As String '--------- Sub DBconnect(flg As Boolean) 'DB接続プロシージャ '---------ファイルが開けない場合のエラーを追加 On Error GoTo Err_Handler 'エラーが起きたら"Err_Handler"へ file_error = 0 'エラーが起きない正常な間はエラーをオフにする。 '--------- Set adoCn = CreateObject("ADODB.Connection") 'ADOコネクションオブジェクトを作成 If flg = True Then Set adoRs = CreateObject("ADODB.Recordset") 'ADOレコードセットオブジェクトを作成 'adoCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBpath & ";" 'Accessファイル（～2003）を開く adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBpath & ";" 'Accessファイル（2007～）を開く '---------ファイルが開けない場合のエラーを追加 Exit Sub '正常ならここで終了 Err_Handler: 'エラーが起きたらここへ飛ぶ MsgBox "「C:\」フォルダの下にエクセルとアクセスファイルを置いてください。" file_error = 1 '--------- End Sub Sub DBcut_off(flg As Boolean) 'DB切断プロシージャ If flg = True Then adoRs.Close 'レコードセットのクローズ adoCn.Close 'コネクションのクローズ Set adoRs = Nothing 'オブジェクトの破棄 Set adoCn = Nothing End Sub Sub DBread() '読み込み Dim shouhinbangou As String, dy As String, txt As String Call DBconnect(True) 'DB接続 If file_error = 1 Then file_eroor = 0 '初期化してから Exit Sub '処理終了 End If With UserForm1 .show 'ユーザーフォーム表示 If .TextBox1 = "" Then '商品番号欄が空欄の場合 shouhinbangou = "" Else '商品番号欄が記入済 shouhinbangou = "WHERE item_no LIKE '%" & .TextBox1 & "%' " '～を含む End If End With strSQL = _ "SELECT * " & _ "FROM zaiko_table " & _ shouhinbangou adoRs.Open strSQL, adoCn 'SQLを実行して対象をRecordSetへ Range("B12:Z1000").ClearContents '前のデータクリア Range("B12:Z1000").Font.ColorIndex = xlAutomatic 'フォント色を初期化 Range("B12:AA1000").Borders.LineStyle = xlLineStyleNone Application.EnableEvents = False 'イベントオフ(ワークシートチェンジが反応しないように) i = 12 'スタート行 Do Until adoRs.EOF 'レコードセットが終了するまで処理を繰り返す Cells(i, 2) = adoRs!ID Cells(i, 3) = adoRs!item_no Cells(i, 4) = adoRs!color_no Cells(i, 5) = adoRs!item_name Cells(i, 6) = adoRs!～～～ ～中略～ Cells(i, 26) = adoRs!～～～ i = i + 1 '行をカウントアップする adoRs.MoveNext '次のレコードに移動する Loop '下から数える With Range("B12") .Resize(Cells(Rows.Count, .Column).End(xlUp).Row - .Row + 1, 26).Borders.LineStyle = xlContinuous End With Application.EnableEvents = True 'イベントオン Call DBcut_off(True) 'DB切断 End Sub

VBAを使い、レポートを作成しようと考えています。 レポートを作成するに当たり、 今まで作成しておいたフォームを利用し、 新しいシートを作成していきます。 ※実行するにあたり、フォームで実行される 　メッセージボックスが邪魔です… 例）　作成されたシート名 　　　出荷数 　　　累計 　　　レベル 　　　効果 　　　ランク そして、そのシートを 新しいブックにコピーしようと考えています。 コピーしたいブックは、 レベル・効果・ランク　のみになります。 最初は、ブックをコピーして保存し、 シートを削除してく方向を考えましたが ブックごとコピーしてしまったために、マクロまでコピーされてしまいました。 マクロは必要ありません。 シートの作成、コピーを色々考えていくうちに 良くわからなくなってしまったため、質問いたしました。 できれば、そのシートのみコピーしたいと思っています。 （新規作成したときのSheet1,Sheet2などは要らないです） 上のほうで書いた、メッセージボックスが邪魔という件ですが、 これは改善方法があれば回答いただけるとうれしいです。 （調べたところ、そういった情報はありませんでした） 回答よろしくお願いいたします！

いつもお世話になっております。 エクセルの関数についてお尋ねします。 （例） A1に　12/09/2013 16:00:06　という文字列があり、これをB1でシリアル値に変更しようと考えています。 MID(A1,7,4)&"/"&LEFT(A1,5)&MID(A1,11,9)　⇒　2013/12/09 16:00:06(文字列） (MID(A1,7,4)&"/"&LEFT(A1,5)&MID(A1,11,9))*1　⇒41612.7086111111 と*1する事によってシリアル値に変換されてるわけですが、この『×1』はどのような意味なのでしょうか？ 知らないで使っているのが気持ち悪いのでどなたかよろしくお願いいたします。

いつもお世話になっております。 エクセルでセルの書式設定についてお尋ねすます。（エクセル2007を使用） （例） 開始時間と終了時間の差を表示したいのですが、　セルの書式設定で　d"日"h"時間"　にすると、例えば、10時間の場合は　0日10時間　と表示されて、頭の0日がとても気になる… という質問をさせていただいた時に、[<1]h"時間";d"日"h"時間"　で行けますよ！という回答をいただき大変助かりました。 今回は少し欲が出て、日、時間、分を表示したいと考えています。 そこでご指摘いただいた事を参考に、[<0.041666]m"分";[<1]h"時間"m"分";d"日"h"時間"m"分"　としてみたのですが、1時間以下が1分と表示されてしまいます。 どのようにすればうまく行くか再度ご教示願えますでしょうか？ どうぞよろしくお願いいたします。

シート内に幾つかコメントがあります。 一括でコメントの書式設定を行いたいのですが、どうすればよいのでしょうか。 やりたいことは自動サイズ調整です。デフォルトで自動サイズ調整にチェックを入れられれば良いのですが、出来ないようですので質問させていただきました。 OS Windows7 SP1 Excel 2010 SP2(MS Office Pro Plus 2010)

お世話になります。 ＥＸＣＥＬを使ってアンケートの集計をしたいのですが、下記のような表の計算式はありますでしょうか？ 簡単に内容を説明しますと、一人の人が1番～3番まで気に入ったものを選択し、 選択項目ごとに、1番を選んだ人の名前、2番を選んだ人の名前・・・というように 個数の合計ではなく、名前を列挙することができたらと思っています。 いろいろ検索してみたのですが、どうしても個数の合計方法しか見つけることができませんでした。 ご意見をいただけますと助かります。 よろしくお願いします。

至急でお願いします！ エクセルの3つ以上のシートにまたがる膨大な量のデータから、 共通しているものを抽出したいです。 ネットで検索したところ、2つのシートから抽出する方法は見つけたのですが、 3つ以上だとやり方がわかりません！ フィルタオプションの詳細設定で指定するかと思うのですが、 「検索条件範囲」で一つのシートしか指定できません。 ここで二つ以上のシートを指定するにはどうやればいいのでしょうか？ ちなみにWindows7です。 エクセルあまり詳しくないので丁寧に教えて頂けるとありがたいです！ よろしくお願いいたします。

他人が作成したものであるが、充分、設定した用紙におさまるように作成されているが、プレビューするとA列の部分しかプレビューされないし、A列の部分しか印刷もされない。 おかしいと思い色々見てみたが、不明であった。しかし、１行目の行幅が「0.00」になっていることに気づき、１行目の行幅を広げてみたところA1セルに「zz」、B1セルに「06」、C1セルに「16」が入力されていた。 これが原因ではないかと思い、1行目を削除してみたところ、プレビューも印刷も正常に行えた。しかし、正常にプレビュー、印刷されない原因は不明のままなので、正常にプレビュー、印刷されない原因をしりたいので、何方かご教示いただけないでしょうか。 使用環境：Win7 32ビット、Excel2007 使用ファイル：Excel97-2003ワークシート

＜Sheet1＞において店コードと商品コードで照合（D列）欄に＜Sheet2＞から数量を抽出したいのですが、VLOOKUP関数で抽出することはできないのでしょうか。 抽出できる方法があれば教えてください。

VBAの初心者です。マクロを使った同一処理を各列ブロック(３列が１単位)毎に 繰り返して列方向に多数のブロックまで行うVBAはどのようなものになるのでしょうか。 具体的には添付図のような表で、Ｂ2店について品名・数量・金額を、4行目～10行目まで、金額の多い順に並べかえた後、金額の合計をセルＤ2　に記入するマクロ（この記述は下記のようになりましたが）、この処理をＥ5店、Ｈ8店……と３列ずつ例えば2０ブロック処理するプログラムはどのようにしたらよいでしょうか（20ブロック目の列番号はＢＧ，ＢＨ，ＢＩです）。どなたか教えていただけないでしょうか。 Sub 多い順と合計() Range("B3:D10").Select Selection.Sort Key1:=Range("D4"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin Range("D2").Select ActiveCell.FormulaR1C1 = "=SUM(R[2]C:R[18]C)" Range("B2").Select End Sub

NotesR5を会社で利用しております。 ビューからデータを「書き出し」 Excel2013で「既存の接続」にてデータを取り込みたいと試行錯誤しています。 Excel2007での「既存の接続」では特別問題なくデータの取り込みは出来ました。 Excel2013では添付の画面が出てきて、何を入れてよいかも解らない状況です。 アドバイス頂けますと幸いでございます。

エクセル ハイパーリンクの設定について教えてください。 Excel のハイパーリンクで「(1)このBook(ファイル)の、(2)このSheetの、(3)このセルに」リンクするという 設定方法は分かるのですが、(3)のこのセルに、という部分で「この文字が入力されているセルに」リンク という細かい設定は出来るのでしょうか？ 例） A1をクリックすると、別ファイル別シートの「確認」という文字列が入力されているセルにリンクする。 該当のセルが複数ある場合はどのセルでもOK。(出来れば一番上にあるセルがベストですが) 色んな書籍を漁ってみたのですが、とうとう分かりませんでした。 エクセルに詳しい方、どうか宜しくお願い致します。

計算結果が最小となる値を求めたいと思っています。 例えば、以下のような場合、A4の値が最小となるA2の値を求めたいのです。 (実際の計算式はもっと複雑です) A1 10 A2 [入力] A3 90 A4 =ABS((A2-A1)*5-(A3-A2)*8) GoalSeekを使って求めようと思いましたが、最小値が分からないので上手くいきませんでした。 (この式の場合、最小値が0であるとわかっていますが、実際は0とは限りません) ソルバーというアドインをインストールすれば上手くできそうなのですが、自分一人が使うシートではないので、ファイルを渡しただけでは動かないようにはしたくありません。 なにかいい手はないでしょうか？ どうか皆様のお知恵をお貸しください。

添付のような書式で 項目１（Ｂ３セル）から項目５（Ｂ７セル）までを手入力して、「実行」みたいなボタンを押すと、Ｅ１７セルからＩ１７セルへ入力されるようにしたいです。 また、次データを入力する際に、「Ｂ２セル」に自動で最上の空白行の数値を持ってくる事はできますか？ マクロ？でできるらしいのですが、マクロがよくわかりません。。。 詳しい方、素人でもわかるようなアドバイス頂けたらうれしいです。 よろしくお願いします

Excel2013では、Excel2007(2010は、不明）までは、 標準で印刷プレビューを行なったあとに改ページ位置が破線で 表示されましたが、Excel2013では、破線が表示されずに 枠線が見えなくなります。 標準で改ページ位置を破線で表示する方法はありませんか ファイル → オプション → 詳細設定 → 表示 → 次のシートで 作業するときの表示設定 → 改ページを表示する(K)がグレーアウト しているのと関係ありますか？ 関係ある場合グレイアウトを解除する方法がありますか

Excelで別ブックに内容を転記する方法を教えていただきたいです。 あるワークブック（転記先・画像上）上にデータの一覧表を作成したいと考えています。 その一覧表には項目が複数ありますが、全てではなく一部の項目のみ、 別のワークブック(転記元・画像下）から内容をコピーした上で、 自動的に転記先の表の最下行に追加できるようにしたいと考えています。 転記元のワークブックは複数ありどの列にどの項目の内容が書いてあるか、は変わりませんが、 何行分の項目が入力されているか、は一定ではありません。 項目１の記入があれば同じ行の他の項目も全て記入されています。 ただし転記先に必要のない項目（画像のXYZなど）もあり、 表と項目の並びも転記先と転記元で異なっています。 マクロを用れば可能かと思い自分なりに調べては見たところ、 ActiveSheetの指定した列の１行目～最下行を選択 ThisSheetの指定した列の最下行に張り付け という流れを必要な項目分だけ繰り返せばいいのかと思いましたが、 実際にどのように式を組み合わせていけばいいのかが分かりませんでした。 説明も稚拙で分かりづらいかと思いますが、 ご回答いただけましたら幸いです。宜しくお願いいたします。

win8を使っています。officeは2013です。今までcsvファイルをクリックするとexcelで開けていましたが、何が原因か、急に開けなくなり、csvファイルのアイコンを右クリックしてexcelと関連付けをしても、開くことができません。原因としてどのようなことが考えられるか、教えてください。