keithin の回答履歴

抽出用シートに日々変動する値で「名称」「場所」「数」が数百入ってきます。 抽出用シートの場所が一致する物の値を合計して、その値を表示用シートの該当する部分に自動で表示するのは可能でしょうか？

下記のようなコードで印刷プレビューを出して印刷するようにしたいのですが、改ページの位置が思い通りに変更されません。 3ページに印刷で、A19（B19）の行から2ページ目とA37（B37）の行から3ページ目にしたいのですが、印刷プレビューを見るとA20の行から2ページ目でA38の行から3ページ目になってしまいます。 HPageBreaks.Add Before:=Range("A19")←ここを色々違うセルに変えたり別のコードにかえたりしても、まったく反映されません。何かが邪魔をしているのでしょうか？ どうしたら、任意の位置で改ページできるでしょうか？お願いいたします。 Sub 印刷プレビュー設定() Dim s As Worksheet Set s = ThisWorkbook.ActiveSheet With s '列非表示 .Columns("I:I").Select Selection.EntireColumn.Hidden = True 'ワークシートを選択、印刷範囲指定する .Select ActiveSheet.PageSetup.PrintArea = "$B$1:$O$54" '余白設定 .PageSetup.TopMargin = 0 .PageSetup.BottomMargin = 0 .PageSetup.LeftMargin = 0 .PageSetup.RightMargin = 0 '水平位置の中央へ .PageSetup.CenterHorizontally = True '垂直位置の中央へ .PageSetup.CenterVertically = True '用紙を横向きに設定 .PageSetup.Orientation = xlLandscape '用紙サイズを設定 .PageSetup.PaperSize = xlPaperA4 '印刷範囲を指定ページに収めて印刷プレビューを表示する .PageSetup.Zoom = False '拡大縮小倍率をFitToPagesの設定に収める .PageSetup.FitToPagesTall = 3 '縦の枚数 .PageSetup.FitToPagesWide = 1 '横の枚数 ActiveSheet.HPageBreaks.Add Before:=Range("A19") ActiveSheet.HPageBreaks.Add Before:=Range("A37") .PrintPreview End With End Sub

エクセル2013のVBAで、ActiveWorkbook.ActiveSheetの、例えばC3からI3まで結合されているセルを基準ActiveCellにして、行方向は4から17セルまで列方向はC列からI列までをコピーしたいのですが、思ったようにOffsetで位置がとれず列がどうしてもずれてしまいます。 どのような指定をすればできるでしょうか？ すいませんが、よろしくお願いいたします。

修正中　名前の範囲を可変にしたい 例えば、C4セル～E17セルに「あああ」という名前を定義しており、続いてC19セル～E32セルに「いいい」という名前を定義し、さらにC34セル～E47セルに「ううう」という名前を定義していたとして、この中のいずれかの行を増やすことがあるとします。 例えばC4セルからE17の間に1行増やしたとすると、通常名前の範囲が意図した所より1行ずれてしまいますが、自動で名前の参照範囲を変更して、C4セル～E18セルが「あああ」、C20～E33セルが「いいい」、C35～E48セルが「ううう」など自動で追従させるにはどうすればよろしいでしょうか？ さらにもし、自動で追従させることができたとして、名前を定義したシートは、1週間毎にシートを増やしていくのですが、ブックレベルで名前を定義しておけばよいのでしょうか？ブックの中には、元データのようなシートも存在しており、そちらには名前の定義は必要ないのですが、ブックレベルにした場合悪影響がでないかな？というのがあります。かといって、シートレベルで名前を定義しておくと、シートを増やす度に名前の定義が増えていくので、それもどうかな？と思っています。 状況によると思いますが、名前がどんどんシート毎に増えていくのは好ましくない気がするんで アクティブシートでしか名前の定義を使用しないなら、ブックレベルで名前を定義しておけばよいですよね？ お手数をおかけいたしますが、よろしくお願いいたします。

Excel 2010で相関を見る散布図を作りたいのですが、うまくいきません。 こちらのサイトで例に出ているような、横軸が系列1で縦軸が系列2の散布図を作りたいのですが、 http://hitorimarketing.net/tools/correlation-analysis.html サイトに書かれている、縦2列のデータを見出しを除き選択→挿入タブの散布図をクリック という方法では、2系列のデータなのに1系列の（横軸がデータ数・縦軸が数値の）散布図になってしまいます。 Excelに詳しい方、教えてください。

23Ar23 28Ar05 3Ta16 8Ta07 11Ta53 14Ta21 …以下多数 のように文字列があって、アルファベット前の数字（１文字か２文字）、アルファベット（2文字）、アルファベット後の数字（２文字）の３つに分割したいのです。データ区切り位置の機能を使えれば簡単ですが、アルファベットの前の文字数が１字と２字のものがあるのでできません。RIGHT、LEFTの関数を使用すれば、アルファベット２文字とアルファベット後の数字２文字は抽出できますが、アルファベット前の数字（１文字か２文字）だけ取り出せません。 関数か何かの方法で文字数を分ける方法を教えてください。

通常、 リボンバーで「校正－ブックの共有」で見たときに、 「排他」と表示されますか？ 「排他」となるほうがイレギュラーですか？

Sheet1は個票データで、 第一列にid番号、第二・三・四列にそれぞれの属性の種類が（数値で）入っているとします。 （例　id 性別 年齢 身長） Sheet2には、 第一・二・三列にSheet1の第二～三列に対応する属性の種類が辞書的順番に網羅されていて、 第四列に、第一～三列に対応する値が入っているとします。 （例　性別 年齢 身長 体重） このときSheet1の第五列に、Sheet2の第四列から対応する値を貼り付けるには、 どのようなプログラムを書けばよろしいでしょうか。 よろしくお願いします。

エクセル　シート１ A1列　 東京駅 ９：３０ 出身大阪 男性 56番 大阪駅 １０：００ 出身京都 女性 22番 名古屋駅 １２：００ 出身東京 男性 １０２番 といったデータを　シート２　　に 東京駅　９：３０　出身大阪　男性　５６番 大阪駅　１０：００　出身京都　女性　２２番 名古屋駅　１２：００　出身東京　男性　１０２番 に転記したいのですが、　行列を変換してコピーという手作業をやってます。 限界なんでVBAでやりたいのですが　どのような記述になりますでしょうか？

よろしくお願いします 作りたいものがあって、最近マクロの勉強を初めた者です 以下ことをDebug.Printしたいのですが（Debug.Printそのものも今日知りました） どのように書いたらいいでしょうか ＲｏｗだったりＲｏｗｓだったり、また、前に何か付いたりで、頭の中が整理できていません 質問１ マクロは　Private Sub Worksheet_SelectionChange(ByVal Target As Range)　に書けばいいのでしょうか？ 質問２ 知りたいのは、シート左端の行番号をクリックしたときに得られる値で 行番号とか他に分かる値すべて知りたいです（Debug.Printしたいです） 質問３ 同じく、列のＡＢＣＤ等をクリックした時に得られる値で 列番号とか、他に得られるすべての数値をDebug.Printしたいです 質問４ あるセル範囲をマウスで選択した時も同様に得られる数値を知りたいです 教えてもらう身分で質問数が多すぎますが、どなたか教えてください

Excelのグラフにおいて目盛線は軸の最小値より補助間隔に合わせるようになっています。 この目盛線を軸の最小値とは関係なく別の開始値を持って設定することは可能でしょうか？ 例：軸の最小値を2として目盛線を10,20,30の間隔で引く やりたいことは対数目盛表示でデータの最小値は3から使用して、目盛線を10,100,1000と引いてそれに合わせた補助目盛線を書きたいと思っています。 軸の最小値を3とした時点で目盛線が3,30,300となってしまいます。 補助目盛線の間隔が3から4にかけてが最大となる幅のグラフが見づらいため変更したいです。 よろしくお願いします。

先日もアンケートの結果入力について質問させて頂いたのですが、 アンケートの仕様が変わってしまい、自分で直そうとしたのですがうまくできず、すみませんがまた教えてください。。。 アンケートの結果を集計するため、入力用シートにデータを入力しています。 入力用シートの構造は、上部のヘッダ部分に、担当者、社名、発売日、商品名の4つの情報があり その下に設問が18問あり、設問の右のセルにチェックボックスがあって、 チェックあり、なしを入力していくようになっています。 チェックボックスの値は非表示のセルにリンクするようにしています。 となりのデータベースシートにその結果を転記していきたいのですが、 データベースシートにはあらかじめ多数の担当者、社名、発売日、商品名の情報が入っていて、 入力シートのヘッダ部分の4項目全てと一致する行に、アンケートの入力結果を転記したいです。 入力シート 担当者名 鈴木 会社名 A株式会社 発売日 11/21 商品名 りんご 設問1 チェックあり 設問2 チェックなし 設問3 チェックあり … 設問18 チェックあり データベースシート 担当者名 会社名 発売日 商品名 設問1 設問2 … 設問18 鈴木 B株式会社 10/30 なし 佐藤 C株式会社 12/5 ぶどう 高橋 A株式会社 11/1 いちご 鈴木 A株式会社 11/21 りんご ・・・・・・ 上記例ではデータベースシートの上から4行目のところに、設問1～18の結果を横に並べて転記したいです。 また、それとは別に、データベースシートと同じ構造の別ブックに同様にデータを転記していくマクロも知りたいです。(実行時にファイルを開いて、同じように4条件全部一致した行にデータを転記したい) 説明が下手で申し訳ないですが何卒お助け下さい。。 よろしくお願いいたします<(_ _)>

プログラミングの勉強でVBAを学んでいるものです 以下の様な問題を出されました 2の100乗の値を計算する。この値はLong型で表せる最大の値をはるかに超すので、十分な大きさのInteger型の配列を用意し、その各要素で各けたの値を表す。値を2倍するサブプロシージャ「二倍」を書いてプログラムを完成させ、値を計算せよ。 Option Explicit Sub 二の百乗() Const n As Integer = 200 Dim s(n) As Integer Dim i As Integer, j As Integer s(1) = 1 For i = 2 To UBound(s) 'UBoundは配列の最大の添え字を返す関数 s(i) = 0 Next i For i = 1 To 100 二倍 s Next i For i = UBound(s) To 1 Step -1 If s(i) <> 0 Then Exit For Next i For j = 1 To i Cells(1, j).Value = s(i - j + 1) Next j End Sub セル一つに計算結果を表示させられないことはよく分かるのですが、そのための2の掛け算を全く思いつきません 二倍のサブプロシージャをどのようにすればいいのでしょうか

excelマクロの初心者です。 データの切り貼りをするマクロについて教えてください。 以下のような担当者と会社名の入った縦に大きなデータを 担当 社名 佐藤 A社 佐藤 B社 佐藤 C社 田中 D社 田中 E社 田中 F社 鈴木 G社 鈴木 H社 鈴木 I社 高橋 J社 高橋 K社 高橋 L社 最終的に 佐藤 田中 鈴木 高橋 A社 D社 G社 J社 B社 E社 H社 K社 C社 F社 I社 L社 このように一番上に担当者、下に該当する社名を羅列されるように切り貼りをしたいと思っています。 ファイルがいくつもあり、また行数はファイルごとに異なり一定ではありません。 マクロでどのように書いたらよいかご教授頂けないでしょうか。 よろしくお願いいたします<(_ _)>

お世話になってます。 関数の入力で壁にぶち当たってしまいました。 A1に月、A2にBMと入力した際にA3に ＝IF（OR（A1＝“月“,A1＝“火“）,vlookup（検索値、範囲など）,““） 上記なような感じで、A1に月や火を入力し、A2にBMと入ったら、vlookupで検索値が出せる、それ以外は空白。というのまではできたのですが… この式の続きにA1に水を入れた場合、同様にA2にBMと入れたら、vlookupでの検索範囲をずらした値で入力 されるような式はできるでしょうか？ 例えば、月や火の時のvlookupの検索範囲をA5からF8、水の場合は、A9からF10といったようにしたら… 画像が重たかったので文書になってしまいましたがよろしくお願いいたします。

Excel初心者です。教えてください。 アンケートの集計をしているのですが、 単票形式の入力用シートに入っているデータを、隣のシートに転記していきたいと思っています。 入力シートには会社名と担当者、多数の設問があり、その回答は全てチェックボックス形式です。(非表示のセルにチェックボックスのチェック有り無しをリンクさせています) 隣のシートには既に会社名などの一覧があり、そこの社名が一致する行にそのチェックの有り無しの値を転記用ボタンで転記したいと思っています。 ●入力シート A株式会社 担当：佐藤 設問1・・・ チェックあり 設問2・・・ チェックなし 設問3・・・ チェックあり ・ ・ ・ ●転記先シート 社名 設問1 設問2 設問3 A株式会社 TRUE FALSE TRUE B株式会社 C株式会社 マクロでどのようにしたらよいでしょうか。 すみませんが教えてください<(_ _)> よろしくお願いいたします。

こんにちは。 以下のようなことをしたいときに、使える関数またはマクロがあればお助け頂けないでしょうか。 シート1には名前列(A列)と個数列(B列)があります。 Aさん,3 Bさん,2 Cさん,1 ・ ・ ・ というイメージです。 次にシート2に以下のように表を作成したいです。 Aさん Aさん Aさん Bさん Bさん Cさん ・ ・ ・ シート１の個数列にある数字の数の分セルを作成し、 且つそこに氏名を入れたいです。 手作業でやるには人数が多すぎ、困っております。 何かの関数でできないかと色々試そうとしていますが、 良い案が浮かびません。 お力をお貸し頂けると大変助かります。 よろしくおねがいします。

会社でデータ管理シートを作成しているのですが、 当方マクロ初心者でして、ちんぷんかんぷんです。 提出期限も明日の定時までに迫り、切羽詰ってきたのでご教授をお願い致します。 シート名「データ」として、以下のシートを作っております。 [No.][分類１][N1][分類２][N２] [内容] [N3][コード1][F1][F2][F3][cd] 　1　　NA1　 X　　 ０　　 X　 商品1 XXXX DATE1 0000 000 0 XXXX　 　2　　NA1　 X　　 ０　　 X　 商品2 XXXX DATE1 0000 000 1 XXXX　 　3　　NA1　 X　　 ０　　 X　 商品3 XXXX DATE1 0000 000 0 XXXX　 　4　　NA1　 X　　 ０　　 X　 商品4 XXXX DATE1 0000 000 1 XXXX　 　5　　NA1　 X　　 ０　　 X　 商品5 XXXX DATE1 0000 000 2 XXXX　 　6　　NA1　 X　　 ０　　 X　 商品6 XXXX DATE1 0000 000 0 XXXX 大まかに記入するとこの様な形になるのですが、 ボタンを押すと、[F3]が１～9の値の時、[内容][cd]を直前の0の行の[内容][cd]それぞれのセルと結合するマクロを作らなければなりません。 [No.][分類１][N1][分類２][N２] [内容] [N3][コード1][F1][F2][F3][cd] 　1　　NA1　 X　　 ０　　 X　 商品1 XXXX DATE1 0000 000 0 XXXX　 ** 　　 　　　　　　　　　　　 商品2 　 　 　*****　　　 ***　 XXXX　 　3　　NA1　 X　　 ０　　 X　 商品3 XXXX DATE1 0000 000 0 XXXX ** 　　 　　　　　　　　　　　 商品4 　 　 　*****　　　 ***　 XXXX **　　 　　　　　　　 　　　　 商品5 　 　 　*****　　　 ***　 XXXX　 　6　　NA1　 X　　 ０　　 X　 商品6 XXXX DATE1 0000 000 0 XXXX （「*」は文字位置調整用です） 分かりずらいかもしれませんが、ボタンを押して実行した結果このような状態にしたいのです。 VBAの教科書と共に、うんうん唸りながら色々試してみたのですが、 ただ時間だけが過ぎ、期限が差し迫ってしまいました... どうかお知恵を拝借させて下さい、よろしくお願い致します。

鉄骨関係です。 同行のセルを参照し H形鋼、L形鋼、C形鋼が入力してある文字の一部分だけ 残すＶＢＡを教えてください。（Excel2007を使用） 例えばE列がW（web）の時、同じ行の赤色部の部材はWeb厚の数字だけ残す。 F(Flange)の時は、鉄骨のFlange厚の数字だけ残す。 またPLも画像の様に、後の数字だけ残すようにしたいのですが いい方法があれば御教示下さい。

Excel VBAにて、任意のセルを他のセルにコピーするコードを作成しています。 コピー元になるデータが、Alt＋Enterで改行を伴ったデータとなっており、 これを.copyにてデータを送ると、改行が無くなった（連結された）表示となります。 一度そのセルをダブルクリックにて操作し、再びEnterを押すと、改行された状態に戻りますが、これを最初から改行されたままのコピーとしてデータを渡すことは可能でしょうか？