Daiki_PaPa の回答履歴
- 最終行から順番に下へ同列で入力するVBAを教えて下さい。
EXCELのVBAで教えて下さい。 セルA1に東京、A2に名古屋、A3に大阪と入力されています。 マクロのボタンにVBAの実行を割当て、ボタンを押す度にA1の東京がC5に、A2の名古屋がD5に、 A3の大阪がE5に入力され、更にA2又はA3のセルが空白でも必ず一行ずつ同じ行に入力されるにはどうしたら良いでしょうか? 例:入力の流れ A B C D E F G・・・・・・ 1東京 2名古屋 3大阪 4 5 東京 名古屋 大阪 6 東京 名古屋 大阪 7 8 ・ ・ ・ ↓ ↓ ↓ A B C D E F G・・・・・・ 1東京 2 3大阪 4 5 東京 名古屋 大阪 6 東京 名古屋 大阪 7 東京 大阪 8 9 ・ ・ ↓ ↓ ↓ A B C D E F G・・・・・・ 1東京 2名古屋 3 4 5 東京 名古屋 大阪 6 東京 名古屋 大阪 7 東京 大阪 8 東京 名古屋 9 ・ ・ ※ポイント ・ セルD7を飛ばしてD8に入力される。 必ず一行ずつ同じ行に入力する。 EXCELを再起動しても入力セルの下から 続いて入力される。
- アクセスで5千以下をまとめる
アクセス2003で作ってます。 金額で5千円以上はそのまま出てくるように、5千円以下は全部の金額をまとめてレポートに出るようにしたいのですが、そのようなことができる計算式はありますか? 10/21 PCソフト ¥50,100 10/22 DVDボックス ¥80,900 ・・・・・ 10/1~10/31まで その他 ¥100,500 こんな感じにしたいのですが…。
- ベストアンサー
- vivi0909-0
- オフィス系ソフト
- 回答数4
- Excel VBAで罫線を引くマクロを書きたい
Excel VBAで罫線を引くマクロを書きたいと思っています。 で、文末のコードを書きました。(というかマクロ記録したものほぼそのもの) これだとある程度動くのですが、内側線が無いような範囲を選択した場合にはエラーになってしまいます。 内側の線を引く際にIF文をかまさなければならないように思うのですが、イマイチわかりません。 この点について教えてください。 また、コードが冗長であるようにも思えます。もう少しスマートな書き方があればあわせて教えてください。 よろしくお願いします。 Sub 枠線基本() ' 周囲 With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With ' 内側 With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With End Sub
- エクセルでの列の統合について
エクセルで2つの列を改行を用いて統合させる場合、 =A1&CHAR(10)&B1 とすれば良い事はわかりましたが 複数の列、例えばA列からP列まで改行を用いて結合させたい場合 どのように記述すればよいのでしょうか?
- 締切済み
- neoty
- その他([技術者向] コンピューター)
- 回答数1
- エクセル VBA ユーザーフォームで検索したいのですが
つい昨日触り始めた大初心者です。。 エクセルシートにて 数値を記した列と、詳細を記した列があります。 ユーザーフォームにて textboxに数値を入力し、ボタンをクリックすると 検索をして、ユーザーフォーム内のlabelに詳細が表示される、といったvbaを書いているのですが、どうにもうまくいきません。 また、textboxに検索範囲にない数値が入力されたときには Labelに「なし」と表示させたいのですが、 エラーが出てしまい、その処理もやはりうまく出来ません。 どなたかご教授いただけますでしょうか。
- VBAを見よう見まねで考えています。
初めまして、当方全くの素人です。よろしくお願いします。 VBAで”D1へ値だけをコピーする”のは Range("D1").PasteSpecial Paste:=xlValues です。 VBAで”右方向へシフトさせてコピーする”のは Range("D1").Insert shift:=xlShifttoRight であることは解るのですが、”D1へ値だけ右方向へシフトさせてコピーする” のはどのような式になるのでしょうか。解る方、よろしくお願いします。
- outlook 2003について
こんにちは。 パソコン知識に乏しいものです。 最近outlook 2003 を設定したのですが、毎回、同じアドレスから、同じ時間に同時に2通受信メールが届いてしまいます。 なにか設定ミスをおかしているでしょうか。 ご協力お願いします。
- 締切済み
- shin206801
- オフィス系ソフト
- 回答数2
- エクセルの文字の大きさセルの幅等変更できない
エクセルのデータをもらったのですが、文字の大きさ、セル幅、セルの書式設定等変更できません。解除の方法を教えてください。
- ベストアンサー
- natsumi005
- オフィス系ソフト
- 回答数2
- VBAを見よう見まねで考えています。
初めまして、当方全くの素人です。よろしくお願いします。 VBAで”D1へ値だけをコピーする”のは Range("D1").PasteSpecial Paste:=xlValues です。 VBAで”右方向へシフトさせてコピーする”のは Range("D1").Insert shift:=xlShifttoRight であることは解るのですが、”D1へ値だけ右方向へシフトさせてコピーする” のはどのような式になるのでしょうか。解る方、よろしくお願いします。
- 250CCの2ストの単車について
私は、250CCの2ストの単車がほしいのですが、加速が速い順に1位から5位くらいまで教えてください> 現在、オークションなどで購入したいと考えています。
- ベストアンサー
- noname#103998
- バイク・原付自転車
- 回答数8
- 筆王ZOROで住所録のソートができない
年賀状作成に筆王ZOROを購入しました。最新状態にアップデート済みです。 住所録を作成し、入力済みの、いくつかの項目(部署名、メモ、)の項目名欄をクリックし、ソートをしてみました。 だいたい同じ入力内容のものが固まるのですが、他の入力内容の後に数件が出てきたりしています。結果的にはソートができていないということです。よみがながある項目でもないですが、何が原因でしょう? 例 部署名 営業 営業 営業 経理 経理 営業 →なぜか、ここにまた営業がくる。 営業 → 〃 総務 総務 経理 →ここに経理がきたりする。
- できる筆王ZEROの操作について
住所録一覧表を作りたいのですが、表示内容を二段にしたいのですができません。以前のソフトでは可能でしたが、ゼロでは出来ないのでしょうか。教えて下さい。
- 筆王0 簡単作成モードのデータ
簡単作成モードで裏面のデザインを作成したいのですが、去年のデザインしか出てきません。今年のものはどうしたらでてくるようになるのでしょうか?
- タイヤのパンクについて
トヨタラウム2006年型(走行約8000Km)です。半月に0.4位のエア漏れがあります。場所はホイ-ルとタイヤの境界です。普通に走行していてエア漏れが起きる場所とは思えないし、まだ2年経っていないタイヤなので、製造段階での欠陥ではないかと思っています。ディ-ラ-に持っていきこの点を主張したいのですが、妥当でしょうか。経験のある方、教えてください。
- ExcelVBA UserFormに沢山のボタンを貼り付けたい
Excel2003のVBAを使っています。 コマンドボタンが沢山付いたユーザーフォームを起動したいのですが、 フォームに貼り付けるコマンドボタンの個数は、マクロを実行した時に決めたいです。 (例えば任意のセルの値を読み込むなどして) 要するにコードの中で、コマンドボタンの生成をしたいのですが、 可能でしょうか。 VBでプログラム組んでる知人に聞いたところ、「コントロール配列」なるものを利用すれば可能だそうですけど、 VBAにはそれが無いと聞きました。
- ExcelVBA UserFormに沢山のボタンを貼り付けたい
Excel2003のVBAを使っています。 コマンドボタンが沢山付いたユーザーフォームを起動したいのですが、 フォームに貼り付けるコマンドボタンの個数は、マクロを実行した時に決めたいです。 (例えば任意のセルの値を読み込むなどして) 要するにコードの中で、コマンドボタンの生成をしたいのですが、 可能でしょうか。 VBでプログラム組んでる知人に聞いたところ、「コントロール配列」なるものを利用すれば可能だそうですけど、 VBAにはそれが無いと聞きました。
- エクセルのマクロでハイパーリンクを設定したのですが・・
エクセルのマクロでハイパーリンクを一括でやる方法を教えてください。 マクロは初心者なので、よくわかりません。 リンク先は同じドキュメント内の別シートです。 <一覧> A 1 name1 2 name2 3 name3 4 name4 5 name5 ・ ・ ・ name1のリンク先をSheet1 name2のリンク先をSheet2 name3のリンク先をSheet3 name4のリンク先をSheet4 という具合に順次、次のシートのリンクを張りたいと考えています。 目的として <一覧>のシートに記述されたタイトルをクリックすることで 同じタイトルのシートに飛べるようにしたいです 困るのは <一覧>のシートにも参照するシートの名前も記載済みなので 変わってほしくないことです。
- ベストアンサー
- noname#76583
- オフィス系ソフト
- 回答数7
- Excel 連番の関数(SUBTOTAL)のコピー方法
今使用している下記のような表があるのですが、同じシート内に上下に合計表があります。 SUBTOTALを使ってオートフィルタでB列が a またはb を選んだ時でも A列が連番になるよう、C列の合計が絞り込み後もに計算させるように簡単ではありますが、こんな表があるのですが、 今後上下の表の一部データを入れ替えする作業もあり、普通にコピーをしていれかえさせたいのですが、うまくいかない為、 $絶対参照を変えたりと、いろいろ試しているのですが、うまくいきません。 知恵をお貸し頂きたく、質問させて頂きました。 可能であれば教えて頂きたいのですが、 どうかよろしくお願いします。 ------------------------------------------------------- A B C A1=SUBTOTAL(3,$B$1:B1) 1 1 a 1 2 2 b 1 A2~A4=コピー 3 3 a 1 4 4 b 1 5 合計 aまたはb C5=SUBTOTAL(3,C2:C4) 6-------------------------------------------------- 7 1 a 1 A7=SUBTOTAL(3,$B$7:B7) 8 2 b 1 A8~A10=コピー 9 3 a 1 10 4 b 1 11 合計 aまたはb C11=SUBTOTAL(3,$B$7:B7) -------------------------------------------
- 1
- 2