keithin の回答履歴

イーマシーンズのOSを使ってるのですが、 エクセルｖｂａで Sub Sample() Debug.Print Application.OrganizationName End Sub を実行しても何も取得されません。 前にマウスコンピュータのＰＣを使ってた際は取得できたのですが、 これはイーマシーンズのＰＣだから取得できないのでしょうか？ 取得できた際（マウスコンピュータ）のＯＳはｗｉｎ７で、 今（イーマシーンズ）はｗｉｎ８．１を使っています。

今月の1日から今日までの日数をしりたいのですが もちろんExcelです。 今日１1日なら11という数字を得たいです。 お願いします。

仕事で困っており、皆さんのお力をお借りできますでしょうか。 下記に記載致しますのでよろしくお願い致します。 エクセルＶｅｒ．2003　です。 弊社事情でオートフィルターとマクロを使用せず、関数のみ使用を希望しております。 又、データには個人を区別できる固有の項目を使用せず、あくまで課と係の完全一致に 下記内容で順位付けしたいというものです。 リストに複数の課と係があり、課と係の２つをキーとし、完全一致したものに 順位付け（１ ２ ３ ４）を必要な人数分付けたいというものです。 実際には各３課と各３係の９部署あり、各課は最低１０人～２０人おります。 合計９部署の各部署毎に各別列で１、２、３、４と順位付け表示、 ですから各列の中に一致しない箇所が必ずあり、そこは空白になっております。 下記に仮想データを用意しました。 ※確認ボタンを押すと空白表示がずれて表示が正確でないかもしれませんが イメージとして捉えて頂ければ幸いでございます。 A列 B列 C列 　D列 　　　　E列　　　　F列　　　　G列　　　　H列 　　　　I列 No. 課 係 東京１係 東京２係 福岡１係 福岡２係 大阪１係 大阪２係 1 大阪 2 　　　　　　　　　　　　　　　　　　　　　1 2 福岡 2 　　　　　　　　　　　　　　1 3 東京 2 　　　　　　　1 4 福岡 1 　　　　　　　　　　　1 5 大阪 1 　　　　　　　　　　　　　　　　　　1 6 東京 2 　　　　　　　2 7 東京 1 　　　1 8 大阪 2 　　　　　　　　　　　　　　　　　　　　　2 9 大阪 2 　　　　　　　　　　　　　　　　　　　　　3 10 福岡 2 　　　　　　　　　　　　　　2 11 東京 1 　　　2 12 福岡 2 　　　　　　　　　　　　　　3 13 福岡 1 　　　　　　　　　　　2 14 東京 2 　　　　　　　3 15 東京 2 　　　　　　　4

すみません。繰り返し165行下がってデリートしたいのですが・・・ どなたか詳しい方ご教授下さいませ。 ActiveWindow.SmallScroll Down:=174 Rows("183:198").Select Selection.Delete Shift:=xlUp ActiveWindow.SmallScroll Down:=171 Rows("348:363").Select　←165行下がりデリートを繰り返しデリートしたいです。 Selection.Delete Shift:=xlUp

エクセル2013のVBAの事で質問です。 あるファイルをSaveCopyAsでコピーして、コピーしたファイルのシートをアクティブシートのみ残して全削除するようにした（その他もシート内で色々処理）のですが、新しく作成したファイルのマクロを登録してあるボタンがコピー前のファイルのマクロにリンクされてしまいエラーを起こしました。 今まで他のファイルでSaveCopyAsを使ってコピーしていましたが、特にそのようなこともなく使えていました。 どんな原因または修正法が考えられるでしょうか？ すいませんが、よろしくお願いいたします。

Excel2007を使用しています。 次のような場合のＣ列にはどのような関数を入れればよいのでしょうか？ A 　　 B 　　 C 1 v3　　　100 100×1.08(四捨五入） 2 v8 100　　　100　 3 空白 100 100 ・A列がv3の場合はC列はB列×1.08(四捨五入） ・A列がv8or空白の場合はC列=B列 以上、よろしくお願いいたします。

仕事で困っており、皆さんのお力をお借りできますでしょうか。 下記に記載致しますのでよろしくお願い致します。 エクセルＶｅｒ．2003　です。 弊社事情でオートフィルターとマクロを使用せず、関数のみ使用を希望しております。 又、データには個人を区別できる固有の項目を使用せず、あくまで課と係の完全一致に 下記内容で順位付けしたいというものです。 リストに複数の課と係があり、課と係の２つをキーとし、完全一致したものに 順位付け（１ ２ ３ ４）を必要な人数分付けたいというものです。 実際には各３課と各３係の９部署あり、各課は最低１０人～２０人おります。 合計９部署の各部署毎に各別列で１、２、３、４と順位付け表示、 ですから各列の中に一致しない箇所が必ずあり、そこは空白になっております。 下記に仮想データを用意しました。 ※確認ボタンを押すと空白表示がずれて表示が正確でないかもしれませんが イメージとして捉えて頂ければ幸いでございます。 A列 B列 C列 　D列 　　　　E列　　　　F列　　　　G列　　　　H列 　　　　I列 No. 課 係 東京１係 東京２係 福岡１係 福岡２係 大阪１係 大阪２係 1 大阪 2 　　　　　　　　　　　　　　　　　　　　　1 2 福岡 2 　　　　　　　　　　　　　　1 3 東京 2 　　　　　　　1 4 福岡 1 　　　　　　　　　　　1 5 大阪 1 　　　　　　　　　　　　　　　　　　1 6 東京 2 　　　　　　　2 7 東京 1 　　　1 8 大阪 2 　　　　　　　　　　　　　　　　　　　　　2 9 大阪 2 　　　　　　　　　　　　　　　　　　　　　3 10 福岡 2 　　　　　　　　　　　　　　2 11 東京 1 　　　2 12 福岡 2 　　　　　　　　　　　　　　3 13 福岡 1 　　　　　　　　　　　2 14 東京 2 　　　　　　　3 15 東京 2 　　　　　　　4

エクセル2013です。 人口密度についての加重平均の出し方がわかりません。 問題はこんなです↓ 　　面積　　　　　　人口　　　　　　人口密度 　　9,159　　　　284,154　　　　　31.024566 　　8,457　　　　173,858　　　　20.55788105 　　16,889　　　　146,560　　　　8.677837646 　　　911　　　　117,608　　　　129.0976948 　　1,909　　　　100,088　　　　52.42954426 　　　357　　　　　82,344　　　　230.6554622 　　1,000　　　　　68,525　　　　　68.525 　　　995　　　　　67,285　　　　67.62311558 　　　550　　　　　59,278　　　　107.7781818 　　　241　　　　　58,670　　　　243.4439834 　　　　　　　　　　　　　　　　　　　　　　　　　　　教えてください　

エクセル2013vbaです。 2014年という名前のファイルがあります。 vbaで、 Sub test() Dim myNew_path As String myNew_path = Format(DateAdd("yyyy", 1, Replace(ThisWorkbook.Name, "年.xlsm", "")), "yyyy") End Sub を実行すると、"1906/07/06"を取得しており、"1906"となってしまいます。 無理やりDateAddで110を足せば"2015"の取得はできますが、どうしてでしょうか？ どのように修正すればまともにDateAddに1を足して"2015"を取得できるのでしょうか？ すいませんが、お願いいたします。

Word 2007でのフィールドコートに関する質問です。 質問に対する回答（質問の解決になっている回答）以外の書き込みを絶対にしないでください。 想像・「参考になれば？」・「他あたってください」・書いてみただけ・「知りません」等の「回答」は一切しないでください。 （i）F9キーを用いて操作しています。 （ii）{ SEQ 連番 \#"0" ｝ を任意数入力して「1」、「2」、「3」、「4」、「5」・・・という数字を表示させています。 ここまではググって分かります。以下が分かりません。 （iii）ここで「4」を 複 数 個 表示させたくなったとします。そして、その複数の「4」たちは、たとえ「1」の前に出現しても、たとえ「283」と「284」の間に出現しても、たとえどこに出現しても、もちろん「4」でなければなりません。 （iv）もちろんこの「4」たちにはリンクしてもらい、1箇所の（というか「3」と「5」の間に入力したフィールドコードということになるでしょうか????）「4」を変えれば他の「4」全部に変わってもらわなければなりません。 どうすればいいでしょうか。 これを可能にする操作が存在しなければ、書き込まないでください。 可能にする 可 能 性 の あ る 操 作 に 関 し て も 書 き 込 ま な い で く だ さ い 。

ワード2013を使っています。ヘッダーを以下のようにしたいのですが、２時間以上あれこれやっているのですがうまくいきません。わかりやすく教えていただけると助かります。 全１０ページ。 1枚目はヘッダーなし。 ２ページより、レポート　2／10、レポート　3／10、～レポート　10／10　と記載。 ただし、偶数ページは、左はじに、奇数ページは右はじに記載。 よろしくおねがいします。

先日、outlook2007のメールに関するバックアップに関する質問をしました。その時、エクスポートからバックアップが上手くできず、元のデータをコピーしました。 デスクトップを買い替えてwinndows8.1（元は7）にして、個人フォルダのインポートを試みたのですが、全くダメでした。インポート候補に全くデータが表示されませんでした。 この場合、元のデータを取り込むにどのようにすればよいのでしょうか。あるいは、このような場合、元のデータを読み込むことはできないのでしょうか。 初歩的な質問かもしれませんが、ご教示よろしくお願いいたします。

ExcelのVBAマクロで、For　～　Then構文で複数のセルを参照していき、 色付きのセル（塗りなしのセル）に入力されている値のみを取得する方法を教えてください。 Excel2007を使用しています。

A1からC3を選択して印刷範囲に設定、3行下のA6からC8を選択して印刷範囲に追加、3行下のA11からC13を選択して印刷範囲に追加・・・という感じで3行ごとに100回ぐらい繰り返すマクロってどうやるんでしょうか？ 教えてくださいm(_ _ )m

例えば、Aがエクセル表を作成して、ハイパーリンクをかけたとします。 そのハイパーリンクは、Aの画像であったり、関連する文書であったり、そのエクセル表の入っている同じフォルダのものです。 このエクセル表だけをメールでBに送った場合、それを受け取ったBはハイパーリンクのかかっているセルをクリックしたとしたらパソコン画面に画像とか、関連する文書とかを表示することはできますか？ やはり、Aは、Bに関連する画像、文書の入ってるファイル（フォルダごと）も一緒に送信しないと開けないのでしょうか？ そもそも画像のアドレス設定がAのパソコンのファイルの住所設定になっているのでBは、開けないのでしょうか？ 私の言ってること伝わったでしょうか？教えてください。お願いします。

Sub Macro1() ' ' Macro1 Macro ' ' ActiveCell.Offset(-1, 0).Range("A1:G1").Select Selection.Copy End Sub マクロの記録だけでこのコードを作ることは可能でしょうか？

初心者です。 いろいろと自分なりに調べているのですが、よく分からず教えてください。 例） Ｂ列、Ｄ列で（ＢＢ・ＢＤ・ＤＤなど組み合わせは問いません）同じ数値が２つ揃った時、Ａ列にある同じ数値のセルの隅に✔が自動についたり、セルの中に薄く‘済み’と表示させたりするなど、同じ数値が２度打ち込まれているか、Ａ列を見るだけで確認することは出来ませんでしょうか？ ※ちなみにセルの色や文字色を変化させることは考えていません。 分かりづらい点もあるかとは思いますが、ご教示ください。 よろしくお願いいたします。

word２００３で「1行40字×40行の縦組み」にしたいのですが、 どこをどう操作すれば良いのでしょうか。 ワードに詳しい方、どうぞ宜しくお願いします。

エクセル2010を使っています。 ちょっと解らないことが出てきたので教えていただけませんか？ 画像の様なデータがあり、BG列の日付を新しいものから並べ替えたいと思います。 画像では　AW～BI列にデータがありますが拡張するのはAW～BIまでで、表の外にもデータがありますが、表の外はそのまま表示する形です。 尚且つ、10万行程度あり、増えていきますのでそれに対応できる方法がベストです。 詳しい方、よろしくお願い致します。

サッカーの星取表を作成しています。 スコアを入力すると、勝○、分△、負●が表示されるよう↓のようにしました。 =IF(B2>D2,"○",IF(B2=D2,"△","●")) しかし、スコアを入力していない状態だと引き分けの△が表示されてしまいます。 スコア未入力状態では何も表示しないようにするにはどうしたらいいでしょうか。