ushi2015 の回答履歴

Sheet 1 に住所録 Sheet 2～50までに同じフォーマットで A 　B　　C～E F～H No. 名前 S～L S～L と並んでいてA4から名前　C～の列には各数量が50行ほど入力されています。 Sheet 2～50 までを名前ごとにまとめたSheet を自動で作成したいです。 Sheet1とSheet2～50の名前順は同じです。 例 Sheet51 シート名 Aさん 　　　DEF列 　　　SML 1行目1,2,3(Sheet2AさんのC～E数量) 2行目2,2,2(Sheet2AさんのF～G数量) 3行目2,2,2(Sheet3AさんのC～E数量) 4行目4,4,4(Sheet3AさんのF～G数量) 同じようにSheet 53　Bさん となるようにループする方法をご教授ください。 よろしくお願い致します。

よろしくお願い致します。 Excel の計算式と作業列のみを用い、同じ文字列の隣の数値を合計し、その多い順にリスト化する方法についてお知恵をお貸しください。 やりたいことは以下になります。 ばななが合計7、りんごが合計5、みかんとなしが合計3なのでC列の通り合計か大きい順番に表されます。 A　　　　 B C りんご　 1　 ばなな　　　　 ばなな　　2　　　　 りんご みかん　　3 みかん りんご 4　　　　　なし ばなな 5 なし 3 みかんとなしは同数ですが、 上にあるみかんがつ先にきます。 以上、よろしくお願い致します。

　ブログでいろんな国の人が働いている企業勤務の人がいました。 　その人は猫を飼っていて、ブログで猫の話をしていました。 　それによると 　「いろんな国の人と一緒に働いているけど、猫を飼っていると驚かれる。なんであんな目つきの悪くて愛想の悪い生物を飼っているのかと不思議がられる」 　だそうです。 　魔女狩りが行われた西洋では今にでもその名残りがあるから猫が嫌われているのでしょうか？ 　日本では住宅事情が狭いということもあり、猫が多くの人に飼われている側面がありますが、住宅が広めな海外では犬の方がより好まれているのも影響しているのかもしれません。 　そこまで世界的には猫はペットとして認識されてない国が多いのでしょうか？

社内システムで次のようなCSVファイルがダウンロードできます。 名前　　チーム　道具 田中　　A 　　　1 鈴木　　　　　　2 　　　　　　　　3 このデータをEXCELの関数を多用して次のように整形したいのですが、可能ですか？ 名前　　チーム　道具 田中　　A 　　　1 田中　　A 　　　2 田中　　A 　　　3 鈴木　　A 　　　1 鈴木　　A 　　　2 鈴木　　A 　　　3

エクセルファイルを保存しようとしたら <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <recoveryLog xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main"><logFileName>error070800_01.xml</logFileName><summary>ファイル 'C:\あああ.xlsm' にエラーが検出されました</summary><additionalInfo><info>ファイルの破損が深刻なので修復できません。数式と値の保存を試みましたが、消失または破損したデータが含まれる可能性があります。</info></additionalInfo></recoveryLog> と言うエラーになりました。 元々マクロ付のxlsmふぁいるからマクロなしのファイルに名前を付けて保存しようとしたら 怒りました。 このファイルはもう使わないほうが良いのでしょうか？ 一から作り直したほうが良いですか？

いつもお世話になっています。 名前を付けて、特定のフォルダに保存したいのですが、.GetSaveAsFilenameのところで 「メソッドまたはデータ メンバが見つかりません。」のエラーがでてうまく動きません。 何処が間違っているのか教えてください。よろしくお願いします。 元のデーターは、別のフォルダに入っていて、その名前を取得したいです。 しかし、その名前の修正をしたいときもあるので、確認して保存したいです。 ご教授お願いします。 SUB test() Dim fname As String Dim SF As String SF = "\\osaka\PCBackup\" fname = Application.GetSaveAsFilename(SF, _ FileFilter:="wordファイル,(*.doc),*.docx") ActiveDocument.SaveAs Filename:=fname End Sub

いつも、お世話になっております。 window7, Access2013 データシートビューのあるフィールドをスペースキーで押したら、関連したフォームが開けるようにしたいと思っています。 以前に質問させていただいたケースは、[会社ID]　と言う解りやすいフィールドをスペースキーで押したら、会社のフォームが現れるものでそれは Private Sub 会社ID_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Or KeyCode = 32 Then DoCmd.OpenForm "営業会社", , , "会社ID=" & Me.会社ID KeyCode = 0 End If End Sub と、お教えいただき、快適に動作しています。 今回は、[会社ID]の隣にある[会社名]というフィールドをクリックしたら、[営業記録」のフォームが開けるようになることを切望しています。そのフィールドにはマクロを設定していまして、クリックしたらその[営業記録]のフォームがフォームビューで開けるのですが、スペースキーで開けるようになるとずっと快適にストレス無く作業ができるようになると思っています。 色々、やってみましたが、どれも上手く出来ません。お手数ですが、ご回答くださると助かります。よろしくお願いいたします。

いつもお世話になっています。 名前を付けて、特定のフォルダに保存したいのですが、.GetSaveAsFilenameのところで 「メソッドまたはデータ メンバが見つかりません。」のエラーがでてうまく動きません。 何処が間違っているのか教えてください。よろしくお願いします。 元のデーターは、別のフォルダに入っていて、その名前を取得したいです。 しかし、その名前の修正をしたいときもあるので、確認して保存したいです。 ご教授お願いします。 SUB test() Dim fname As String Dim SF As String SF = "\\osaka\PCBackup\" fname = Application.GetSaveAsFilename(SF, _ FileFilter:="wordファイル,(*.doc),*.docx") ActiveDocument.SaveAs Filename:=fname End Sub

お世話になっております。 Access2007+VBAについてになります。 フィールド内の特定の文字を置き換えたいのですが、どのようしたら良いでしょうか。 例えば・・・ テーブル_Aと、テーブルBがあります。 テーブルAには、フィールドCに抽出したいデータのIDが入っています。 テーブルBには、フィールドDに置換えたい日付が入っています。 フィールドDの日付は、『日付は2015-12-22です。』となっており、 フィールドCのIDと、テーブルBにあるフィールドEというIDがマッチしたフィールドDの日付を、『日付は、2015-12-23です。』に置き換えたいと思っています。 IDは、両方ともに、オートナンバー型ではありません。 色々試してみたのですが、全く分かりません。 是非、ご教授をお願い致します。

ACCESS2013です。 単体テーブル：受注　でフォームを作成しております。 最初は、３つ以上のテーブルをクエリーで作成して、それでフォームを作成しようと考えて いましたが、３つ以上のテーブルクエリーでフォームを作成すると、項目の編集ができません。 ダイナセットから矛盾ありの設定にすると、編集ができるようになりますが、各フィールド間 の連携が無くなってしまいます。 受注画面に店コードを入力すると、その店の該当エリア名を非連結のテキストボックスに 表示したいです。 マスタテーブルとして、 　M_店（店コード、店名、エリアコード） 　M_エリア（エリアコード、エリア名） 　 受注テーブル（受注No.、店コード・・・・） フォーム上の非連結テキストボックスのコントロールソースに設定できれば一番いいのですが。 どうぞ、よろしくお願いします。

いつもお世話になっています。 名前を付けて、特定のフォルダに保存したいのですが、.GetSaveAsFilenameのところで 「メソッドまたはデータ メンバが見つかりません。」のエラーがでてうまく動きません。 何処が間違っているのか教えてください。よろしくお願いします。 元のデーターは、別のフォルダに入っていて、その名前を取得したいです。 しかし、その名前の修正をしたいときもあるので、確認して保存したいです。 ご教授お願いします。 SUB test() Dim fname As String Dim SF As String SF = "\\osaka\PCBackup\" fname = Application.GetSaveAsFilename(SF, _ FileFilter:="wordファイル,(*.doc),*.docx") ActiveDocument.SaveAs Filename:=fname End Sub

付き合って半年の彼氏がいるのですが、彼がバイクの二人乗りをしたがります。 そのため、彼が私にヘルメットを購入するように催促してきます。 しかし、ヘルメットはそんなに安いものじゃないし、いつまで付き合っていられるかもわからないのに、普段バイクに乗らない私がヘルメットにお金をださなきゃいけないのが正直なんとなく引っかかります。 彼にはこのことは言えてません。 私が心の狭い女なのかもしれませんが、自身がバイク乗り、もしくは彼がバイク乗りだという方々は、同乗者用のヘルメットはどういう形で用意したのかを教えて欲しいです。

ACCESS2013です。 単体テーブル：受注　でフォームを作成しております。 最初は、３つ以上のテーブルをクエリーで作成して、それでフォームを作成しようと考えて いましたが、３つ以上のテーブルクエリーでフォームを作成すると、項目の編集ができません。 ダイナセットから矛盾ありの設定にすると、編集ができるようになりますが、各フィールド間 の連携が無くなってしまいます。 受注画面に店コードを入力すると、その店の該当エリア名を非連結のテキストボックスに 表示したいです。 マスタテーブルとして、 　M_店（店コード、店名、エリアコード） 　M_エリア（エリアコード、エリア名） 　 受注テーブル（受注No.、店コード・・・・） フォーム上の非連結テキストボックスのコントロールソースに設定できれば一番いいのですが。 どうぞ、よろしくお願いします。

　ＨＰのスリムタワーＰＣ、ＯＳはＸＰで、おそらく１４，５年前に購入しました。 　ＯＡタップからＰＣ、モニター、モデム、ルーターなどの電源を取っています。最近、ＯＡタップのスイッチを落とすと日付時刻がリセットされてしまいます。スイッチを入れた後は数分掛けてディスクを読み込み、SET　UPモードで日付時刻を設定すると立ち上がります。 　日付時刻用の電池が切れているのでしょうか、それとも電源の不良でしょうか？

EXCELで図形をグループ化する場合、以前までは範囲を設定することで、その範囲に含まれる図形（オブジェクト）は全て自動で選択されていました。 そのため、範囲を選ぶ→グループ化と2ステップでグループ化が可能でした。 ところが、EXCEL2013では範囲内にあっても高さ=0あるいは幅=0のオブジェクトは選択されないようです。 水平線や垂直線は選択範囲内にあっても選択されないため、一つ一つ手動で追加選択しなければいけなくなりました。 これが極めて不便で非常に腹立たしいのですが、何か良い方法はないのでしょうか？ ご存じの方がいれば、是非ご教授くださいませ。 私の認識（方法や設定）が間違っているわけじゃありませんよね？

スマホでネットサーフィンしていたら ページporuno-tv.comから警告画面が でました。 24時間以内に登録を解除しないと 意思があって登録したとみなされ 金額を請求します。 誤った登録でも24時間すぎると 対応できなくなります。 と、表示されて 24時間タイマーが そのページにうつされました。 私には登録した覚えもないし、 でもこういうのはほっといたほうが いいと聞きますけど、タイマーが 動いてたのを見たら不安で しょうがないです。 どうしたらいいですか？？

OS：Windows10 Pro 64bit Office2016 Home & Business Premium Excel2016で郵便番号を入れただけで住所を出力する方法を教えてください。 9F：9I　郵便番号、9J：9Z　住所 Microsoft IMEIMEのシステム辞書には郵便番号辞書は入っています。 出来れば関数を使った方法はないでしょうか？

windows8.1から10にアップグレードすると同時に、excel2016をインストールしました。 この状態で、エクスプローラーから前のバージョンの（excel2003や2007、2010など）のexcelファイルを開こうとしてファイル名をダブルクリックすると、なぜか[名前を付けて保存]のダイアログが表示されて、ファイルを開くことができません。 excelの[開く]メニューからファイル名を指定して開くことは問題なくできています。 2016について、何か仕様変更等があったのでしょうか、もしくはwindows10へのアップグレードがなにかしら影響しているのでしょうか。（キーボードの設定が変わったり、マウスの挙動が変わったりと、結構影響が出ています） ご存知の方いらっしゃいましたらよろしくお願いいたします。

素人ですいません。 エクセルの余計な所をいじって印刷できなくなりました。 現在仕事で使っている表ですが 最初のシートに見積もり印刷ボタンがあり 印刷ボタンを押すと、別のファイルシートのいき 入力したものを印刷するように、マクロで作ってあるみたいです。 余計な所を押したのか、使えなくなりました。 ちなみに、コードが出るところで、色が変わっている箇所があり それが変わっているのかよくわかりません。 Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _ :=True こんな感じででています。 何が違うかわからないので、どうか教えていただけないでしょうか。 ちなみに、この表を作った方は辞めてしまって 他に詳しいものがいないので困っています。 どうかよろしくお願いします。

VBAでシートAの範囲A1：B200までをコピーして シートBの範囲A1：B200にコピペしたいのですが、 範囲のB200のみ変動する可能性があるので、その変動に対応出来るようにしたいです。 例） Worksheets("A").Activate PD = Worksheets("入院費用一覧").Range("A1:B〇〇〇").Value Windows("B").Activate Worksheets("B").Range("A1:B〇〇〇").Value = PD B〇〇〇の所に変動できる数値を関数でC1に行数指定して対応できないかと考えていますが、何かいい方法有りますでしょうか。 宜しくお願い致します。 ※VBAあまり詳しくはありません。