rivoisu の回答履歴

武器による平和は成り立たないのです。 相手が武器を持つから、自分も持つというのは短絡的な考えです。 どうして「私は武器を持たないから、あなたも持たないようにしましょう。」と言えないのでしょう？ そうゆうことを率先して行なうことができるのは、憲法９条のある日本しかありません。

憲法９条の精神こそ日本が誇るべきもので、変えてはいけませんよね？ ２１世紀は友愛の精神で、外交を行わなければなりませんよね？

ガス工事に関してですが、ある新築物件ではじめ当社のガスで供給する事が決まっていましたが、完了後、他社のガス会社の社員が入居する事がきまり、ガス工事代を請求することで、ガスを切り替える事になりました。 しかし、上記の話は2年前の話で、当社が請求書を出すのを忘れていました。しかも、その担当者は、残金を残したまま退職してしまいました。　 自分が全く関わってないのに、回収しないといけない立場になっており大変困っています。 今更、2年前の事など請求しても回収できるのでしょうか？ また、この様な請求書の遅れのお詫び状などの例文、回収の仕方があったら、なんでもいいので教えて下さい。 よろしくお願い致します。

Excell / Access とも 2003 です。 Access ですでに開いている選択クエリーを、Excell VBA から参照し、内容を取得する方法を探しています。 Access側に手を入れることはできない上にブラックボックスとなっているため、Excell側から「すでに開いている選択クエリー」を取得する方法を探している次第です。 よろしくお願いします。

EXCEL2000にて kakikomi→セル行数の変数です ５列、２行に入力されている数値を加算して ３行目(結合セル）に答えを出したいため 下記のように書き込みました。 計算は実行できるのですが 長文になってしまい修正などがあった場合困ると思います もっと見やすく、修正も楽なようにするには どの様にすれば宜しいでしょうか？ ActiveSheet.Cells(kakikomi + 3, 2) = Application.WorksheetFunction _ .Sum(Cells(kakikomi, 2), Cells(kakikomi, 3), Cells(kakikomi, 4), Cells(kakikomi, 5), Cells(kakikomi, 6) _ , Cells(kakikomi + 2, 2), Cells(kakikomi + 2, 3), Cells(kakikomi + 2, 4), Cells(kakikomi + 2, 5), Cells(kakikomi + 2, 6)) 宜しくお願いいたします。

入力フォーマットに入力し、最後に「登録する」のようなボタンをクリックすることで別シート上のデータベースへ入力した情報が蓄積されるという作業をExcelVBAを用いて行っています。そのデータベースに添付ファイルをつけた情報を入れたいのですが、フォーマット上でつけたハイパーリンクがデータベースに入りません。VBA初心者のため、やり方が分からず困っています。よろしくお願いします。

book1，2，3を開いておいて、book3のあるセルにbook1のあるセルの値とbook2のあるセルの値を足す式を入れました。 book1のそのセルの値を変えてもbook3のセルの値が変わりません。 book3のセルの値も変わるように（リンクするように？）するにはどうすればよいのでしょうか。

エクセルで住所録をつくりました。 活用の中で、レコードの入れ替えで昇順、降順と試して納得したのですが、元の入力順に戻すことができません。教えて下さい。 PC ビスタ ホームプレミアム　SP1　　オフイス２００７

お世話になります。 集計ファイルでエリア・商品で集計をとっています。 一つのファイルにまとめたいのでエリアをシート名による串刺し 商品を統合を使って集計していますが 毎回統合ボタンを押すのが大変で マクロを使い下記のコードを使っていますがファイルのパスで固定されているので 人に渡すとファイル名の変更、ユーザーの違いによりエラーになってしまいます。 現在開いているファイルの名前とパスをマクロに取り込み統合させる事は可能でしょうか Sub Macro1() ' ' Macro1 Macro ' マクロ記録日 : 2009/9/29 ユーザー名 : user ' ' Sheets("一般A").Select Range("b6").Select Selection.Consolidate Sources:=Array( _ "'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]〇〇一般A'!R6C2:R64C9", _ "'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]□□一般A'!R6C2:R64C9", _ "'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]△△一般A'!R6C2:R64C9", _ "'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]××一般A'!R6C2:R64C9", _ "'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]●●一般A'!R6C2:R64C9", _ "'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]■■一般A'!R6C2:R64C9", _ "'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]▲▲一般A'!R6C2:R64C9", _ "'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]＋＋一般A'!R6C2:R64C9", _ "'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]※※一般A'!R6C2:R64C9", _ "'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]％％一般A'!R6C2:R64C9"), _ Function:=xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:=False Sheets("一般B").Select Range("b6").Select Selection.Consolidate Sources:=Array( _ "'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]〇〇一般B'!R6C2:R64C9", _ "'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]□□一般B'!R6C2:R64C9", _ "'C:\Documents and Settings\user\デスクトップ\[8期資料.xls]△△一般B'!R6C2:R64C9", _ ・ ・ ・ ・ End Sub DIMとかActiveWorkbook.Pathとか組み込みましたが うまく行かないです。 どうぞ助けてください。

エクセル2002です。 同じ形式で行数のみ可変とする表形式のシートがあります。 その表に入力した行数に応じて印刷する用紙を ユーザー設定（最小） →A5　横 →A4　縦　（最大) と手作業で変更させるのが面倒になったので、行数を数えて用紙を変更するマクロを標準モジュールに記載し、ボタンからそのマクロを起動して使用しています。 これを何らかのイベントマクロにして、ボタンからの起動をなくしたいのですが、どのようなイベントが良いでしょうか? ・行の複写挿入/削除で行数を増減させています。 ・目的の動作をしたいシートはひとつのブックに２０余りあります。 シートモジュールの場合全てのシートにコードを記載することになるのでしょうね・・・ モジュール/イベント名をご指導いただきたく、お願いします。

中小企業（従業員50人ほど）の経理をしています。 現在、ミロクの財務大将（固定資産管理も）を使っていますが、そろそろハードもソフトもサポート終了期限が近づいており、新しく買い換える必要があります。 前回導入時にハード、ソフト併せて３００万円ほどかかりました。 ５～６年で買い換え時期が来て、３００万円はちょっと高い気がします。 他のメーカーも同じような金額なのでしょうか？ この際に検討しようと思ってますので、お勧めの会計ソフトがあれば教えて下さい。 よろしくお願いします。

（マクロ・VBA初心者です・・・・・・） 職場で使用している掲示板で、読んだ人がチェックする為に、 書き込みの後に名前のリストをコピー→貼り付けしています。 これをマクロを使って、任意のセルを選んでマクロを実行すれば リストが貼り付けられるようにしたいのですが、貼り付けがうまく行きません。 マクロの記録で行っているのは、 (1)名前のリストをコピー（絶対参照） (2)コピーしたリストを貼り付け（相対参照） なのですが、貼り付けが相対参照で行われず、絶対参照で行われてしまいます。 記録終了バーが相対参照になっているのは確認しているのですが・・・・・・。 自分なりにマクロの本を読んだりネットで探してみたりしましたが、 基本的なこと過ぎるのか解決策が見つからず、途方に暮れて質問させて頂きました。 もしかしたら何か基本的なところを見落としているかもしれませんが、 何卒宜しくお願い致します。

マクロの初心者です。まだほとんどわかっておりませんので、よろしくお願いします。 ユーザーフォームにシートの表の任意の番号を入力して、業者１から業者２までの連番で封筒に住所が印刷したくてコードを書きました。 変数　i　の使い方がわからないので教えてください、お願いします。 Private Sub Cmb業者1_AfterUpdate() '番号に対し業者名を表示する '変数の宣言 Dim MyKC As Long 'Txt業者に対応する業者名を表示する MyKC = Cmb業者1.Value Txt業者名1.Text = Application.WorksheetFunction. _ VLookup(MyKC, Range("電気住所"), 3) End Sub ------------------------------ Private Sub Cmb業者2_AfterUpdate() '番号に対し業者名を表示する '変数の宣言 Dim MyKCC As Long 'Txt業者に対応する業者名を表示する MyKCC = Cmb業者2.Value Txt業者名2.Text = Application.WorksheetFunction. _ VLookup(MyKCC, Range("電気住所"), 3) End Sub ------------------------------ Private Sub Cmd印刷_Click() '変数の宣言 Dim i As Long 'プリンターの設定 Application.ActivePrinter = "Canon iP4300:" '印刷クリック時の処理 For i = MyKC To MyKCC Range("A1").Value = i.Value 　　　　　　　　　　 ここの i で止まります ActiveSheet.PrintOut Copies:=1 Next i Unload Form電気業者印刷 End Sub ------------------------------ Private Sub Cmd終了_Click() '「終了」ボタンをクリック時の処理 'MyDlgにFalseを代入し、フォームを閉じる MyDlg = False Unload Form電気業者印刷 End Sub 単純に印刷するだけです。 よろしくお願いします。

珍しいエクセルの使い方をしている人、教えてください。 ちなみに私はエクセルで日記を書いています。 よろしくお願いします。

ExcelVBAにてSQLで取得した値を貼り付けたいのですが どのようにコードを記入すればいいんでしょうか？ ネットで調べたら下記のような参考コードを見つけたのですが dim SQL as String dim rs As Recordset SQL = " SELECT SUM(フィールド名) AS 名前 FROM テーブル名 " Set rs = CurrentDb.OpenRecordset(SQL) この後 RANGE("A1")=rs としても種々のエラーが出ます？ どうしたらよいでしょうか？ よろしくお願いします

パソコンの画面上の一部（指定ができると良い）が他のものに切り替わった瞬間にキーを入力できるマクロを探しています。 なるべく速度の速いマクロで何か良いものはありませんか？ 回答お待ちしています。

Private Sub Worksheet_Calculate() Range("b1").Value = Range("b1").Value + Range("a1").Value End Sub このマクロをA1セルの数値が変わるたびに自動で実行するには どうすればいいでしょうか？

さっきアダルト動画サイトの無料ダウンロードというところから進んでいき、年齢を入力する画面になって年齢を入力したら、「登録完了」という画面になってしまい、 「お客様機種情報」「IPアドレス」「個体識別番号」等が表示されてしまいました。他にも「支払期限が登録日より3日以内」とか「ご利用期間:300日間」「ご利用料金:89800円」等が表示されました。なにより 「当番組は架空請求やワンクリック詐欺等の違法サイトではありません。ご自身の意思により年齢認証・制限解除をして登録された映像配信型風俗特殊営業届出済みの公式アダルト動画サイトです。いかなる理由があろうと利用料金は携帯の名義人に対して請求いたします」という記述がありました。サイト名は「アダルトアゲハ」となっています。 本当に架空請求やワンクリック詐欺等の違法サイトではないのかどうか不安になっています。 どうすればいいかご助言よろしくお願いします。

現在、事務系の仕事にて、各種集計などにエクセルを使用しています。 ３０人程度の小さな職場ですが、印刷設定や関数など、他の人からよく聞かれ、 職場では「エクセル上級者」扱いです。 しかし自分ではエクセルの機能の１％すら使い切れていないと思っていますが、 仮に１％を使用出来れば、それは一般職の世界では上級者と言えるのでしょうか？

エクセルVBAですが 特定のフォルダ内の全ファイル名を取得するのにFiles コレクションが使えると思います。 このFilesコレクションに入るデータの順序を、日付順でソート出来るでしょうか？ コマンドラインでいうと、Dir /OD に相当する動作だと思うのですが・・・ 一般的に取得したあとfor each ～で処理すると思うのですが。 日付の古いファイルから呼び出して処理をしたいのです。 ですので、コレクションから呼び出す段階で日付の古い順から呼び出す方法でも構いません。 どなたか教えて頂けないでしょうか。