keithin の回答履歴

データ入力を複数人で行うため、素のデータBook　Aと入力フォームを持つBook　Bがあります。 Book　Bを開くと自動的にBook　Aを開き、入力フォームでデータをBook　Aにデータを入れていくVBAを作成しています。 EXCELのフォームはそのBook上での起動でPopUP的に表示されます。（Book　Bのシート表示上でフォームが表示される） ユーザーからの要望で、Dataの入力状況を確認しながら、入力したい。つまり、Book　Aのデータシートを背面に表示して、その上に入力フォームを表示したい。（入力フォームは常に手前に表示したい） 同じBooK内ならデータシートをセレクトしてフォームを開けばいいのですが、このような場合には、どうしたらいいでしょうか？ お知恵をお貸しください。

　今晩は、質問させていただきます。どうぞよろしくお願いいたします。 環境：Win7　＋Excel2010 でございます。 　タスクスケジューラで毎日自動実行させているVBAがございますが、 Shiftキーを押しながら開いてもマクロが無効にならずに 最後までコードが走ってしまい、自動で閉じてしまう為、コードを修正する事ができず悩んでおります。 以前、上記自動実行が出来るようにする為に、セキュリティレベルを変更した記憶がございます。（←「信頼できる場所」等）、 　上記の「自動実行」を妨げぬように出来てかつ、Shiftキーで開いた際にVBAを無効に出来る設定、というのはあるのでございますでしょうか？？ 　もしお詳しい方がいらっしゃいましたら，どうぞよろしくお願いいたします。

“オフライン”(コンピューターのExcelヘルプ)に設定している[ヘルプ]の“ヘルプの検索”ボックスに“バージョン”を入力して、検索ボタンをクリックすると、添付図のような画面が表示されます。 つまり、関数名がアルファベット順に表示されているけど、それはなぜなのでしょうか？ 的外れなヘルプに見えますが・・・

エクセルVBA2013で質問です。 C3:I3セルが結合してあり日付が入っています。 同じくJ3:P3も結合してあり日付が入っています。 同じように1週間分隣も続いています。 下側は作業者毎の表になっています。 C3:I3を月曜とすると、その下のC4:I17に作業者Aの月曜日分の内容、 C19:I32が作業者Bの火曜日分の内容となっています。 これを、日付セルを選択して、VBAを実行して各作業者の内容をコピーしてよそに貼り付けるのですが、 例えば、月曜の作業者Aの内容コピーなら、 ActiveCell.Offset(1, 0).Resize(14, 7).COPY でコピーできまていますが、各作業者の内容を増やすことがあります。 作業者Aの内容は4行目から17行目までを最初ありますが、これを増やしたり場合によっては減らしたりして17が20行目までとなったりします。 例えば、20行目まで増やしたとすると、作業者Aの月曜日分は、C4:I20までになります。以下、作業者Bの位置もずれます。 名前を定義して指定すれば、増やしても減らしても追従するのかな？と思いましたがどうすればよいかよく分かりません。 名前の定義も各作業者の各曜日で定義する必要があるのか、それとも作業者の項目で定義して、 ActiveCell.Offset("作業者A",0).Resize("作業者A", 7).COPY のような行のみ名前で指定でできないのかな？とも思いました。 上のは動きませんでしたが・・・。 行を増やしたり減らしたりしてもうまく追従してくれるやり方が何かいい方法がありますか？

こんにちは J3からJ127までの範囲で、 このセルの中に文字を入れたら、 他の範囲を空白にする方法を教えて下さい。 一度だけではなく、何度も繰り返されます。 J3に入力すると、他のセルは空白になり、 またJ5に入力すると、先ほど入力したJ3が空白になる といった感じです。 Excel2007です。 宜しくお願いいたします。

Wordでグラフを挿入しました。 メモリのところを何年という風にしています。 2000年は00 2001年は01 という感じで入力したいのですが、編集のExcelのところで入力しても表示が 0 1 となります。 0からはじまる数字はどのようにすれば良いのでしょうか。

G列に名前、０列に点数があります。 ピボットテーブルで 名前,　平均／点数,　個数／点数 と横に表記したいのですが、 名前,　平均／点数,　 　　　 個数／点数 と2行分かれて表記されます。 マクロは以下です。どこをどう変更したらよいでしょうか。 'ピボットテーブル作成 Dim pvt As PivotTable Dim rngData As Range Set rngData = ActiveSheet.Range("A1").CurrentRegion Sheets.Add Set pvt = _ ActiveWorkbook.PivotCaches.Add( _ SourceType:=xlDatabase, _ SourceData:=rngData). _ CreatePivotTable(TableDestination:=Range("A3")) With pvt .PivotFields("名前").Orientation = xlRowField .PivotFields("点数").Orientation = xlDataField pvt.DataFields(1).Function = xlAverage With pvt .PivotFields("名前").Orientation = xlRowField .PivotFields("点数").Orientation = xlDataField pvt.DataFields(1).Function = xlCount End With End With '

例えば、納品書のひな形があったとして、そこへ別のシートに打ったデータを記載したいのですが出来るでしょうか。 データとしては、 一行に日付、名前（取引先）、商品名、値段を打っていき、範囲指定するとそのデータがひな形に転記されて印刷するというような感じなんですが。 納品書としては、取引先毎で印刷するので、最低限範囲指定する場合はソートを駆けてそろえておくものとします。 たぶんデータベースソフトとかでは簡単にできるとは思うのですが、お知恵をお貸しください。

グラフから式を作る方法を教えて下さい。 画像のような絵のグラフの式が書いてあります。 しかし、とても式からあのグラフと作ったとは思えません。 何かしらの方法やソフトがあると思うのですが・・・ ご存知でしたら教えてください。 カテゴリーは数学にするべきなのか・・・迷ったので、 おそらくPCは必須と思ったので勝手ながらデジタルライフにさせてもらいました。

エクセルのシートを毎日決まって印刷するのですが、毎回印刷範囲がことなるので、手動で印刷範囲を指定し印刷しています。印刷内容は商品リストで9行の日もあれば20行の日もあるといった状態です。 マクロを組むなどにより、自動的に必要部分だけ印刷する方法はないでしょうか？？ ちなみにリスト以外の部分は何も打ち込まれていない状態です。 少しでも効率化ができればと悩んでいます。どなたか良いアドバイスお願いします！！

　A列～O列にデータがあって、G列に名前、O列に点数が入力されています。列数は変化しませんが、行数が変化します。 　可変する行数で、名前別の平均値をマクロで出すにはどうすればよいですか？ 　ネット検索の結果、以下のマクロで合計は出るのですが、平均値が出せません。 　CreatePivotTable(TableDestination:=Range("A3"))のA3の意味も教えていただけないでしょうか。 　よろしくお願いします。 　Sub Macro1() Dim pvt As PivotTable Dim rngData As Range Set rngData = ActiveSheet.Range("A1").CurrentRegion Sheets.Add Set pvt = _ ActiveWorkbook.PivotCaches.Add( _ SourceType:=xlDatabase, _ SourceData:=rngData). _ CreatePivotTable(TableDestination:=Range("A3")) With pvt .PivotFields("名前").Orientation = xlRowField .PivotFields("点数").Orientation = xlDataField End With 　

　A列～O列にデータがあって、G列に名前、O列に点数が入力されています。列数は変化しませんが、行数が変化します。 　可変する行数で、名前別の平均値をマクロで出すにはどうすればよいですか？ 　ネット検索の結果、以下のマクロで合計は出るのですが、平均値が出せません。 　CreatePivotTable(TableDestination:=Range("A3"))のA3の意味も教えていただけないでしょうか。 　よろしくお願いします。 　Sub Macro1() Dim pvt As PivotTable Dim rngData As Range Set rngData = ActiveSheet.Range("A1").CurrentRegion Sheets.Add Set pvt = _ ActiveWorkbook.PivotCaches.Add( _ SourceType:=xlDatabase, _ SourceData:=rngData). _ CreatePivotTable(TableDestination:=Range("A3")) With pvt .PivotFields("名前").Orientation = xlRowField .PivotFields("点数").Orientation = xlDataField End With 　

タイトルをクリックすることで、その文章が表示されるシステムを組みたいのです。 エクセルでボタンを作くれば作れそうな気がするのですが、作り方がわかりません。 エクセルもしくはワードでの作りかたをおしえていただけませんか？ たとえば 　「 　　　　　　　　　　　文章が表示される位置 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　」 　・タイトル1 　・タイトル2 　・タイトル3 のようにタイトルが書いてあってタイトルをクリックすると、文章が定位置に表示されるようにしたいです。

　A列～O列にデータがあって、G列に名前、O列に点数が入力されています。列数は変化しませんが、行数が変化します。 　可変する行数で、名前別の平均値をマクロで出すにはどうすればよいですか？ 　ネット検索の結果、以下のマクロで合計は出るのですが、平均値が出せません。 　CreatePivotTable(TableDestination:=Range("A3"))のA3の意味も教えていただけないでしょうか。 　よろしくお願いします。 　Sub Macro1() Dim pvt As PivotTable Dim rngData As Range Set rngData = ActiveSheet.Range("A1").CurrentRegion Sheets.Add Set pvt = _ ActiveWorkbook.PivotCaches.Add( _ SourceType:=xlDatabase, _ SourceData:=rngData). _ CreatePivotTable(TableDestination:=Range("A3")) With pvt .PivotFields("名前").Orientation = xlRowField .PivotFields("点数").Orientation = xlDataField End With 　

エクセルの関数計算で悩んでいます。 A列にいろいろな数字が入っているとしてB列に計算結果を出したいのですが 1．数字の末尾が4以下の物は丸める。 　　11 → 10 　　12 → 10 　　101 → 100 　　123 → 120 2．数字の末尾が0や5の場合はそのまま。 　　10 → 10 　　30 → 30 　　500 → 500 　　15 → 15 　　45 → 45 　　1055 → 1055 3．末尾が6以上だったら9にする。 　　16 → 19 　　38 → 39 　　108 → 109 　　1237 → 1239 という計算式はできるのでしょうか。 一つ一つならROUNDUPやROUNDDOWNでできるのですが、 まとめてとなるとifと不等号が必要なのかなと漠然なことしか思い浮かびません。 よろしくお願いいたします。

初めまして。早速ですが質問させてください。 Excel2003を使用して、複数のシートを両面印刷しようとしています。 1つのシートにはA4用紙1枚に収まるだけの情報が記載されています。 それぞれのシートにはヘッダーが設定されています。 便宜上、シートA~D　とした場合、シートAとシートB、シートCとシートDを裏表に印刷し、計2枚の用紙を使用したいと考えています。 質問1：シートA~Dを作業グループにして両面印刷しようとすると、全てシートAのヘッダーが印刷されてしまいます。それぞれのシートのヘッダーを印刷することはできないのでしょうか。 質問２：それぞれのシートで1つ1つファイル-ページ設定-オプション-両面　をチェックしていますが、一度に複数のシートで設定はできないのでしょうか。 何卒、ご教授のほどよろしくお願い致します。

こんにちは Google Docs のスプレッドシートに関する質問なんですが、写真のように左で打った郵便番号を右のセルに住所検索して表示する、というような方法はありませんか？ 回答宜しくお願いします。

ｊｃｂ３０９２と申します。 よろしくお願いいたします。 64bitWindows7でExcel2010を使っております。 罫線機能で表を作成しセル内のデータを移動させたり、他からコピーした場合 罫線が消えたりずれ込んだりします。 図形で作表すれば問題は無いと、聞いたことがあります。 どのような手順で行えばいいのか分かりません。 恐れ入りますがご教授頂きたくお願い申し上げます。 何年経っても初心者で皆様が頼りです。

OSは　Win7、Excelは2013　を使用しています。 Ｆ列に名前が入っています。 名前の文字の間に、半角スペースを入れたいのですが、 （山田太郎　→　山 田 太 郎） 名前なので文字数がそれぞれ違うので、どうすればいいかわかりません。 どなたかご教示いただけたら有難いです。 よろしくお願い致します。

下記のようなコードで印刷プレビューを出して印刷するようにしたいのですが、改ページの位置が思い通りに変更されません。 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