Excel総合相談所 63 - 暇つぶし2ch

Excel総合相談所 63 at BSOFT

1:名無しさん＠そうだ選挙にいこう
07/12/22 09:33:58
Excelに関する質問は、ここで！

▼━ 質問のしかた ━━━━━━━━━━
★1 質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。
★2 要望は具体例や図を使って明確かつ具体的に。
★3 質問前に>>2-20あたりの注意書きやQ&Aを必ず読むこと。
★4 質問テンプレ(雛形)は必須じゃないけど、
　　　OSやExcelのバージョン､VBAの可否など(下記テンプレ1～4の情報)は必須情報。

▼━質問テンプレ (出来れば使ってね) ━━━━━━
【1 OSの種類　　　　 .】 Windows**
【2 Excelのバージョン　】 Excel**
【3 VBAが使えるか　　 .】はい･いいえ
【4 VBAでの回答の可否】可･否
【5 検索キーワード　　】 Googleやヘルプでの検索キーワード

※【4】は、VBAはわからないけどコード書いてくれるならVBAでもいいって場合は｢可｣
　 VBAを使うのは避けたいって場合は｢否｣にしましょう。丸投げする場合は､必要に応じてブックをアップすること。

※【5】は、あなたがGoogleやヘルプで検索した際に使ったキーワードを書いてください。
　まだ検索してないなら、質問の前にGoogleやヘルプで検索してみてください。
　 URLﾘﾝｸ(www.google.co.jp)

▼━ 回答のしかた ━━━━━━━━━━
★1 答えられない質問は無駄に罵倒せずスルー。無理するな。
★2 代用法を強制しない。
★3 回答する上で必須ではない情報をむやみに聞き返さない。
★4 回答は質問者が理解できるよう具体的に。

Excel総合相談所 62
ｽﾚﾘﾝｸ(bsoft板)

2:名無しさん＠そうだ選挙にいこう
07/12/22 09:34:24
乙

3:名無しさん＠そうだ選挙にいこう
07/12/22 09:34:29
▼━質問時の注意･決まり事━━━━━━━━━━
･1 現行スレ内で既出の質問が無いか、ページ内検索をしよう。(Ctrl+F)
･2 図やコードを書く場合、TABや連続する半角スペースは無視されるので注意
･3 VBAコードを貼る場合は、部分的に伏せたり省略したりせずに全て貼りましょう。何レス使っても構いません。
･4 2回目以降の質問では名前欄に初回質問の番号を入れよう。
･5 回答内容でわからない部分があっても、すぐに聞き返さずにヘルプやGoogleなどで検索しましょう。
･6 バグ･動作上の不都合･仕様に関する質問などはマイクロソフトのサポートを受けましょう。
　　ここは技術的な質問のみで。
･7 VBAはプログラム言語のVisualBasic(6以前)に近い処理が可能で　Excelに関係ないことも出来ます。
　　Excelの操作に関係ない部分は、スレ違いなのでここで聞かずにVB言語やAPI､COMについて自分で勉強し､
　　どうしてもわからない部分はVBスレやAPIスレなどの該当スレで質問しましょう。
　　但し向こうはプログラマのスレなので､構文規則などの最低限の事は覚えてから質問しましょう。
　　ここみたいに丸投げはダメですよ。
･8 うまくいかなかったにしても自分でやってみたこと(組んだ数式やコード)は書きましょう。
　　例えエラーになる式やコードでも、何をやりたいのかを的確に把握する手がかりになります。
　　その上で、どううまくいかないのかを具体的に書きましょう。
　　エラーが出るなら、何処でどういうエラーが出るのか、
　　想定外の結果が出るなら、条件と想定上の結果、実際の結果などを詳しく書いてください。
･9 マルチはダメ。一度マルチしたら､謝っても他のスレの質問を取り下げても回答は得られないと思ってください。
･A テキストボックス(エディトボックス)、コンボボックス(ドロップダウンリスト)、リストボックス、コマンドボタン、
　　チェックボックス、オプションボタン(ラジオボタン)、スピンボタン、スクロールバー、等の質問をするときは、
　　ユーザーフォーム、コントロールオブジェクト、フォームオブジェクトのどれなのかを必ず書くこと。
･B 書籍や解説サイトの紹介依頼はスレ違い。ここは技術的な質問のみで。

4:名無しさん＠そうだ選挙にいこう
07/12/22 09:35:00
★ルールを無視すると…
　>>1-2あたりのルールに従うか否かは自由だけど､従わないと以下のような不利益があるよ

　1．マルチをしてしまったら…
　A．謝っても他での質問を取り下げても､以後その質問に対する回答は付かない物と思ってください。
　　　それが嫌なら初めからマルチなんてしないように。>>2にマルチ禁止と書いてあり､
　　　マルチの意味が分からなければ検索すれば出てくるので､｢知らなかった｣は通用しません。

　2．>>1★4に従わず､必要な情報を出さないと…
　A．自分の使用しているバージョンで使えない機能を答えられたり､VBA使えないとか使いたくないと書かないと
　　　VBAでの解決OKで自分でコード書けるものと勝手に解釈されて､｢VBAで出来るから自分でコード書いて｣程度の
　　　適当な回答を返されたりします。また､ここではVBAコード書けない人の丸投げ依頼を許可してますが
　　　これはきちんとルールに従って質問､依頼した人のみの特権です。

　3．情報･条件を後出しすると…
　A．後から出された情報は意図的に無視されたり､質問自体を放置されたりします。
　　　>>1★4の必須情報はもちろんのこと､要望や条件､既に試したことなどは､
　　　長文になってもいいので詳細かつ明確かつ具体的に書きましょう。

★VBAについて
　VBAとは､『Visual Basic for Application』の略で
　　Application
　　├Workbooks
　　｜└Workbook
　　｜　 ├Worksheets
　　｜　｜└Worksheet
　というApplication以下のオブジェクトを､VB言語で操作するものを指します。　
　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､
　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。

5:名無しさん＠そうだ選挙にいこう
07/12/22 09:35:31
★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法)

　▼環境･書式
　･列数を256列以上、行数を65'536行以上に増やす (Excel2007では16'384列､1'048'579行扱える)
　･ Excel2003以前で条件付き書式を3つ以上設定する (文字色だけなら、入力規則でも3つ設定可能。それ以外はVBA)
　･行の高さを0.25きざみ以下の単位で指定する
　･セル内の文字を○で囲む、一部のみ2段にする (オートシェイプ、オブジェクト)
　･オートフィルタで英字の大小文字を区別する (小文字 → 半角、大文字 → 全角、と使い分ける)
　･祝日を判断する (作業セルに祝日を列挙、VBA)
　･同一列内でセル(行)ごとに列幅を変える、同一行内でセル(列)ごとに列高を変える (セルの結合)
　･ヘッダー･フッターのページ番号の開始番号任意指定、ページ番号演算、同シート内で違ったものを指定など
　･セルのサイズ(幅､高さ)を､長さの単位(ミリメートルなど)で指定する
　･罫線幅の自由指定
　･表示形式で｢10/ 1｣といった書式を指定し､日付が一桁の場合のみ日付の前にスペースを入れる (TEXT関数､VBA)
　･書式設定の｢折り返して全体を表示する｣と｢縮小して全体を表示する｣を同時に使う (折り返しを有効にして､手動で文字サイズを調整)

　▼操作
　･ファイラーの右クリックメニューからの新規作成で、Excelで設定したシート数のブックを作る (任意のシート数のテンプレートを作成)
　･複数シートを選択して入力規則やシートの保護を設定する (VBA)
　･オートコンプリート機能を、別列や離れたセルで動作させる (VBA)
　･選択範囲から一部を除く､Ctrlを押しながらの複数選択で一部を取り消す (VBA)
　･優先キーを3つ以上指定しての並べ替え (優先度の低い方から順に並べ替える)
　･ 1セルを分割 (分割したいセル以外を結合)

6:名無しさん＠そうだ選挙にいこう
07/12/22 09:36:01
★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法)

　▼数式･関数
　･表示形式以外の書式の取得設定、書式情報を条件とする数式 (ユーザー定義関数)
　･関数式でセルの選択状態を取得する (VBA)
　･セルの値でパスを補完して、開いてないブックのセルを参照する (VBA)
　･入力したセルに結果を返す (VBA)
　･範囲を引数にしての文字列連結 (ユーザー定義関数)
　･値の書き換え、値の保持 (VBA)
　･複数の結果を抽出、不定な数の結果を返す (VBA、結果の最大数が解っていれば最大数以上の式を論理式で組む)
　･空白のセルの部分を上詰め、左詰めなどで表示する (作業セルを使って別セルに詰めて表示なら可能、それ以外はVBA)
　･ VLOOKUP,HLOOKUP,MATCH等の関数で､検索語を全半角両方にマッチさせる (ユーザー定義関数)

　▼VBA
　･ ExecuteExcel4Macroの参照で空セルと0値を区別する
　･セルの値や変数値で直接変数名を指定する (配列、コレクション)
　･ VBのコントロール配列と同じような操作をしたい
　　　(イベント以外ならコントロール名を｢同名+連番｣にしてControls(名前 & インデックス)で処理､イベントはクラスでWithEvents)

　▼ユーザーフォーム
　･フォーム上から変更したプロパティ値の保持 (シートや外部ファイルに書き出して、次回読み込む)

　▼グラフ
　･棒グラフでひとつだけ突出したデータがあった場合に波線を入れて位置を合わせる
　　(オートシェイプなどで見た目だけそうなるように弄る、別アプリでグラフを作り、オブジェクトとして挿入)
　　┌┐
　　～～
　　｜｜

7:名無しさん＠そうだ選挙にいこう
07/12/22 09:36:36
上記｢Excelで出来ないこと、仕様上の制限｣は､一般的に出来ないとされていること､出来ないと思われるものです。
間違いがある可能性もあるので､上記に挙がってるもので｢コレはこうすれば出来るよ｣というものがあったらご指摘ください。
Excel2007についても未確認な項目が多いので変更点が有ればご指摘下さい。

また､ここに書かれてないことでも､Excelで出来ないことはたくさんあります。
ここに書かれてないからといって必ず出来るはずだなんて思わないように。

＞▼環境･書式
＞･セルのサイズ(幅､高さ)を､長さの単位(ミリメートルなど)で指定する
補足
2007ではページレイアウトビューの表示時に限り、幅・高さともｃｍ単位で表示され、
指定も同じくcm単位でできる。
ただし大元がインチ系なのでなかなかピタリの値は出ない。1cm→0.98cmのように
近い値に勝手に丸められる。

8:名無しさん＠そうだ選挙にいこう
07/12/22 09:52:29
おせーんだよボケ
もっと早くたてろ

9:名無しさん＠そうだ選挙にいこう
07/12/22 09:57:05
>>8
串探してた。

10:名無しさん＠そうだ選挙にいこう
07/12/22 10:20:30
>>1 　乙です。
早速だが、スレ違いかも。
入力規則の入ったセル列を横切って移動するとき、セル移動速度が極端に遅くなる。
何かうまく、早くする方法はない？

11:名無しさん＠そうだ選挙にいこう
07/12/22 10:26:42
PCの買い替え

12:名無しさん＠そうだ選挙にいこう
07/12/22 10:46:42
>>10
今試してもならない・・

他にそのセルがアクティブになったときに発動する命令とか入って無いの？

13:名無しさん＠そうだ選挙にいこう
07/12/22 11:03:58
>>12
説明が足りなかったですね。すみません。
入力規則では、３階層程度のindirectをいれてます。
また、その参照先は基本データを別シートで管理するようにしているので、ある程度、遅くなるのは覚悟していたのですが、体感速度は遅すぎの状態です。

14:名無しさん＠そうだ選挙にいこう
07/12/22 11:11:47
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】あー、リトル
【4 VBAでの回答の可否】可

セルの値がゼロの時、折れ線グラフがゼロに飛んで見にくくなるからゼロを""に変えれば直るが
セルが数式の場合の結果がゼロの場合、if（数式＜＞0,数式,"")やっても直らない
どうすればいいですか？

15:名無しさん＠そうだ選挙にいこう
07/12/22 12:18:19
EXCEL2003および2000でファイル開くのと保存、メニュー動作などが
極端に遅いファイルがあった。
ローカルファイルなのに、起動時や保存時になぜか通信(LAN？NET?)しようとする。

原因つきとめてみたら、操作しているPCで使用してないフォントが
エクセルファイル内で使われていた。
問題があったのは全部、別のPCで作成されたものだった。
（具体的には、一太郎のJSフォント）

操作しているPCからフォント書き換えてみたら、あっさり解消。
2003から2000にダウングレードしたのが無駄になった･･･orz

16:名無しさん＠そうだ選挙にいこう
07/12/22 13:41:26
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】 No
【4 VBAでの回答の可否】可

セルには1850000と入力し、表示は下4桁を表示せず185とするには、どうしたらよいですか。

17:名無しさん＠そうだ選挙にいこう
07/12/22 15:15:41
>>16
書式に"185"って入れてみるのはダメ？
URLﾘﾝｸ(up2.viploader.net)

18:名無しさん＠そうだ選挙にいこう
07/12/22 15:29:54
その列のセルは全て下4桁を表示しない設定にしたいのですが。無理でしょうか？

19:名無しさん＠そうだ選挙にいこう
07/12/22 15:34:19
>>18
その列のセルすべてに適用すりゃいいじゃん

20:名無しさん＠そうだ選挙にいこう
07/12/22 15:48:04
>>16
URLﾘﾝｸ(www.itmedia.co.jp)

21:名無しさん＠そうだ選挙にいこう
07/12/22 16:18:45
こいつぁすげぇや

22:名無しさん＠そうだ選挙にいこう
07/12/22 18:29:23
書式の中で改行が指定できるとは知らんかった

23:名無しさん＠そうだ選挙にいこう
07/12/22 18:59:51
>>20を見た奴が>>16の質問をしてる
に1票

24:名無しさん＠そうだ選挙にいこう
07/12/22 20:54:23
お願いします。

【1 OSの種類　　　　 .】 Windows XP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】オートフィル　行　列　固定

Sheet1では行に（横に）数値が並んでいて(A1=100,B1=200,C1=300…)、
それをSheet2にリンクを貼って列に（縦に）並べたいです。
まずSheet2のAA1を『=Sheet1!A1』としてリンクを貼り、それを下の行にコピーすると、
オートフィルが働いて『=Sheet1!A2』としてしまいます。
これを『=Sheet1!B1』、『=Sheet1!C1』とコピーしていきたいのですがどうすればいいでしょうか。
『=Sheet1!A1』を『=Sheet1!A$1』として下の行にコピーしても、ダメでした。

要はSheet1では　

あいうえお

となっているものが
Sheet2では

あ
い
う
え
お

となるようにリンクを貼りたいということです。

25:名無しさん＠そうだ選挙にいこう
07/12/22 21:11:31
>>24
Sheet1!の範囲A1:E5のデータを
Sheet2のB2:F5へリンク
ただし、B1からF1まで１，２，３，４，５・・・・A2からA6まで１，２，３，４，５・・・と入力されてること
それでSheet2のB2:F5のセルに
=INDEX(Sheet1!$A$1:$E$5,B$1,$A2)と入力

26:名無しさん＠そうだ選挙にいこう
07/12/22 21:13:03
>>14
式が入るとどうやっても空白と同じにはできないから
セルのデータを削除するしかない。
ただし値を#N/Aにすれば「補完してプロット」と同じにはなる。

27:名無しさん＠そうだ選挙にいこう
07/12/22 21:15:30
=INDEX(Sheet1!$A$1:$E$5,B$1,$A2)はB2だけな
あとはコピーで

28:名無しさん＠そうだ選挙にいこう
07/12/22 21:28:54
テンプレ変わってね？

29:24
07/12/22 21:39:44
>>25
ありがとうございます。できました。

＞ただし、B1からF1まで１，２，３，４，５・・・・A2からA6まで１，２，３，４，５・・・と入力されてること

これが実用の時にちょっと難しいので、単純に
『=Sheet1!A1』を下の行にコピーした時に『=Sheet1!B1』となるような
やり方があるとうれしいのですが…
一つ一つ修正すればできるんですが、かなりたくさんあるので。
よい方法がありましたら引き続きお願いします。

30:名無しさん＠そうだ選挙にいこう
07/12/22 21:58:43
>>29
数字は違うシートにでも書けば？
ドラックすればすぐできるんだからさ。
該当シートでなくてもいいんだからさ。

これが一番よい方法だと思うが。
まだご不満なの？

31:名無しさん＠そうだ選挙にいこう
07/12/22 22:10:20
そうそう
=INDEX(Sheet1!$A$1:$E$5,B$1,$A2)の参照先のB$1とか$A2ってそこじゃなくてもいいんだし
>『=Sheet1!A1』を下の行にコピーした時に『=Sheet1!B1』
なんのことかわからん
=INDEX(Sheet1!$A$1:$E$5,B$1,$A2)これコピーすればどこまでも使えるじゃん

32:名無しさん＠そうだ選挙にいこう
07/12/22 22:16:45
>>26
お、ナイスです
ありがとう

33:24
07/12/22 23:12:04
＞　>『=Sheet1!A1』を下の行にコピーした時に『=Sheet1!B1』
＞　なんのことかわからん

Sheet2の『=Sheet1!A1』を下の行にコピーした時に、オートフィルで>『=Sheet1!A2』になるわけですが
これを『=Sheet1!B1』・『=Sheet1!C1』・『=Sheet1!D1』と”列番号のアルファベット”が移り変わっていくように
コピーできないか、と言うことです。

34:名無しさん＠そうだ選挙にいこう
07/12/22 23:28:09
>>33
いやだからそれは縦横の問題クリアしたら必要なくね？って事
=INDEX(Sheet1!$A$1:$E$5,B$1,$A2)のコピーで=INDEX(Sheet1!$A$1:$E$5,B$2,$A2)とか=INDEX(Sheet1!$A$1:$E$5,B$1,$A3)とかになるだろ？
それと別の質問にしてしまうのか？

35:24
07/12/22 23:32:51
別の質問として、お願いします。単純にコピーがしたいんです。
Index関数に関しては、知識がないためせっかく教えていただいても現時点で理解できません。（今後、勉強します）

36:名無しさん＠そうだ選挙にいこう
07/12/22 23:36:32
>>35
そうか・・・indexも単純コピーで済むのにな
ちょっと考えるがｉｎｄｅｘより簡単なのなさそうなんで期待しないでくれ

37:名無しさん＠そうだ選挙にいこう
07/12/22 23:38:40
前スレにも縦と横のセル名を逆にしたいって質問があったような。
俺は鳥頭なんで覚えてないけど。

38:名無しさん＠そうだ選挙にいこう
07/12/22 23:40:58
>>35
つーかさ
Sheet１コピー
Sheet2に「形式を選択して貼り付け」　「行列を入れ替える」にチェック　「OK」
じゃダメか？

39: ◆EROEROeX96
07/12/22 23:47:21

　　　　　　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　∧＿∧　　　∫　 |　ねぇねぇ、VBAを書くとき、Dimで変数を宣言するのって
　　（　・∀・）　　∬　＜　結構メンドいんだけど、なにかメリットでもあるのか？
＿_と　　　つ━'~　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　（　_⌒)　￣|
￣￣￣し'J￣￣｜
￣￣￣￣￣￣￣

40:24
07/12/22 23:49:07
>>38
リンク元がSUM関数になってるので、エラー（REF)が出ちゃうんです。

41:24
07/12/22 23:53:06
>>36
ありがとうございました。
いい機会なので、Index関数を勉強します。その後でレスしていただいたものを見て
理解できると良いんですが。

＞数字は違うシートに書く、該当シート以外に書く　
というところがサッパリなのです。

42:名無しさん＠そうだ選挙にいこう
07/12/22 23:53:20
参照じゃなくてコピーでいいんなら行列の入れ替えのついでに「値」のラジオボタン押しとけ

43:名無しさん＠そうだ選挙にいこう
07/12/22 23:56:11
>>39
バリアント型は処理が遅くてメモリも余分に消費する。
最近のパソコンならほとんど気にならないレベルだが、
プログラムの規模が大きくなると影響が出ることもある。

44:名無しさん＠そうだ選挙にいこう
07/12/22 23:59:56
Dimで宣言しておくと変数名の大文字と小文字が自動的に揃うから、タイプミスがその場で発見できる

45:24
07/12/23 00:05:10
>>42
参照でなくてはいけないんです。リンク元のデータが変わるので。

46:名無しさん＠そうだ選挙にいこう
07/12/23 00:06:34
>>41
ヒント
Sheet２のA1には
=INDEX(Sheet1!$A$1:$E$5,Sheet3!A$1,Sheet3!$A1)以下コピー
Sheet3には
１，２，３，４，５
２
３
４
５

47:名無しさん＠そうだ選挙にいこう
07/12/23 00:06:44
>>45
だったら>>40は何だよ
いいかげんにしろ

48:名無しさん＠そうだ選挙にいこう
07/12/23 00:09:08
全部バリアントだわｗ

49:名無しさん＠そうだ選挙にいこう
07/12/23 00:12:01
Option Explicit使わないとあまり意味ない
あとCOMオブジェクトなら自動メンバ表示してくれるのがメリットかな

50:24
07/12/23 00:12:28
>>47
リンク元であるSheet1のA5は、=SUM(A1:A4)であり、A1～A4の数値がかわると、A5も変わるので、
値だけコピーしても意味が無いということです。おかしいでしょうか。

51:名無しさん＠そうだ選挙にいこう
07/12/23 00:17:40
>>50
>>40は「エラーが出るからダメ」としか読めない
でも実際ダメな理由はエラーが出るからではないと
おかしいでしょ

52:名無しさん＠そうだ選挙にいこう
07/12/23 00:18:02
VBAを使えば

53:24
07/12/23 00:30:22
>>51
40は、形式を選択して貼り付け→すべて→行列を入れ替える　でエラーが出る
42は、形式を選択して貼り付け→値→行列を入れ替える　で数値はコピーされますが
リンク元の数値がSUM関数によって変わるので、参照でないと困る
ということです。

54:24
07/12/23 00:34:18
>>46
できました！ありがとうございます。
これを２つのシートだけでできると嬉しいんですが、ここから先は自分でやってみます。

55: ◆EROEROeX96
07/12/23 00:56:54
>>43-44
　　　　　　　　　　　　　　
　　　∧＿∧ 　　 ∫ 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　（　・∀・）　　∬　＜　んじゃ、Dim i As Longと書かずに、Dim i だけでもおｋか？
＿_と　　　つ━'~　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　（　_⌒)　￣|
￣￣￣し'J￣￣｜
￣￣￣￣￣￣￣

56:名無しさん＠そうだ選挙にいこう
07/12/23 00:58:47
>>55
個人用ブックで、少量のマクロなら全て宣言無し（＝バリアント扱い）でOK

57: ◆EROEROeX96
07/12/23 01:01:50
>>56
　　　　　　　　　　　　　　
　　　∧＿∧ 　　 ∫ 　／￣￣
　　（　・∀・）　　∬　＜　㌧！
＿_と　　　つ━'~　　　＼＿＿
　　　（　_⌒)　￣|
￣￣￣し'J￣￣｜
￣￣￣￣￣￣￣

58:名無しさん＠そうだ選挙にいこう
07/12/23 02:53:14
エクセルのシートに地図を貼り付けて
その画像の上にオートシェイプで線を引いたり、プロットしたいのですが
ふとした時に画像が動いてしまいます(いつの間にか選択してたりとか)。

お聞きしたいのはシートに画像を埋め込む(？)ことは可能でしょうか？
シートロックしてしまうと画像は固定できてもその上から描画できないし・・・

その都度グループ化するしか方法はないのでしょうか？

59:名無しさん＠そうだ選挙にいこう
07/12/23 05:32:05
1 ：名無しさん [sage]： 2007/12/23(日) 05:23

【1 OSの種類　　　　　　.】 WindowsXP
【2 Excelのバージョン　　.】 Excel2003
【3 VBAが使えるか　　　】 No
【4 VBAでの回答の可否.】可
【5 検索キーワード　　　.】エクセル関数、データベース関数等

質問があります。宜しくお願い致します。
シート1に縦にズラズラっと入力していきます。それをシート2に、こう集計したいのです。
A列には同一項目があり、B列はユニークです。
※入力例は私の趣味(A列がバンド名、B列が曲名)で、本当は仕事での表になります。

sheet1　　　　　　　　　　　　　　　　　　　　　　　sheet2
A　　　　　　　　B　　　　　　　　　　　　　　　　　A　　　　　　　　B　C
Helloween　　Power　　　　　　　　　　　　　　　ACDC　　　　　1　Thunderstruck
Fight　　　　　Nailed to the Gun　　　　　　　　　　　　　　　　　2
Helloween　　Sole Survivor　　　　　　　　　　　　　　　　　　　 3
Megadeth　　Kill the King　　　　　　　　　　　Fight　　　　　　 1　Nailed to the Gun
Helloween　　Where The Rain Grows　　　　　　　　　　　　　 2
Megadet　　　Symphony of Destruction　　　　　　　　　　　　3
ACDC　　　　Thunderstruck　　　　　　　　　　Helloween　　　1　Power
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　2　Sole Survivor
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　3　Where The Rain Grows
　　　　　　　　　　　　　　　　　　　　　　　　　　　Megadeth　　　1　Kill the King
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　2　Symphony of Destruction
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　3
曲名は定期的に増減(sheet1の行追加、削除）
sheet2のレイアウトを変えたくない(印刷用)
バンド名は値で、曲名は自動にしたい。
曲名順はどうでもいいです。作業列もいくらあってもかまいません。
宜しくお願い致します。

60:59
07/12/23 05:40:25
59です。
テンプレのコピペミス申し訳ありませんが、できればワークシート関数でお願いします。
不特定多数が使用しますもので・・・。
宜しくお願い致します。

61:exc
07/12/23 07:16:41
>>59
例えばACDCは２曲目３曲目が空白になっています。
この空行は必要？

62:59
07/12/23 08:10:24
はい。必要です。
曲数が変化しても表のレイアウトが変化しないようにしたいのです。
表に空欄を作って印刷、追加があればそこに記入しそれを見てPC入力。
翌日分の表を印刷する、という使い方です。

63:名無しさん＠そうだ選挙にいこう
07/12/23 08:12:18
>>58
書式→シート→背景で。

64:exc
07/12/23 08:30:26
>>62
特に関数などは使わずともA列の並べ替えで実現できませんか。
新しいバンドの曲を登録する時は１曲だけであっても空行含めて３行追加するという運用をしてはいかがでしょう。

65:59
07/12/23 09:06:21
バンドは例えで本当は商品名なのですが
数が多く日々変化します。
例えでいうとバンド名を探して入力するのが思ったより手間なので、
別シートに縦打ちが早いのでは、と思いました。

66:名無しさん＠そうだ選挙にいこう
07/12/23 09:59:32
ピボットテーブル知らないとこういうの苦労するよね

67:exc
07/12/23 10:23:45
>>65
バンド名　曲名
Helloween　Power
Fight　　　Nailed to the Gun
Helloween　Sole Survivor
Megadeth　　Kill the King
Helloween　Where The Rain Grows
Megadet　　Symphony of Destruction
ACDC　　　　Thunderstruck

のように順番に並べていってピボットテーブルレポートを作れば
目的に近い表ができます。
行の方へにバンド名と曲名をドラッグして下さい。
データアイテムはバンド名でも曲名でもどちらでもいいです。
できあがった表には「ACDC計」のようなバンド名ごとの小計があるので
右クリックで「表示しない」を選んで完成です。

68:59
07/12/23 15:39:17
加工するので、できればピボットテーブル以外でお願いしたいのですが。
PCド素人に使ってもらう物なので。

69:ニートのつぶやき
07/12/23 16:44:50
＞入力例は私の趣味(A列がバンド名、B列が曲名)で、本当は仕事での表

ちぇっ、仕事用かよ・・・

＞バンドは例えで本当は商品名

だったら最初から書けよ！イライラする・・・

70:名無しさん＠そうだ選挙にいこう
07/12/23 16:59:17
イライラついでに、おそらく、商品名も違うだろなw
状況は適当な訳よ、常に。
特に、株の香具師は状況転換してくるｗ
最初から、そう書くと折れも答える気がしないからだろうな

71:名無しさん＠そうだ選挙にいこう
07/12/23 17:13:33
URLﾘﾝｸ(ichiba.geocities.jp)

↑をExcelにコピーしたいのですが、普通にコピーして張り付けると一つのセルに６コの数字が入ってしまいます。
これを一つのセルに１コずつ数字を入れるにはどうすれば良いのでしょうか？
よろしくお願いします。

72:名無しさん＠そうだ選挙にいこう
07/12/23 17:14:39
ピボットテーブルは大ヒットだよな
これで業者別の購入代とか工事別の集計とか作業時間集計とか
月末仕掛作業にもってこいだ

73:名無しさん＠そうだ選挙にいこう
07/12/23 17:18:36
>>71
怖いので見てないが多分コピー貼り付けじゃなく
テキストファイルかなんかにしてからエクセルで開いて
インポートウィザードで区切り文字をスペースとか指定すればいい

74:exc
07/12/23 17:23:38
>>68
関数だけで実現するのは不可能じゃないかな。
VBAでできるでしょうけどピボットテーブルレポートを自作するのと同じで
意味がないですし。

75:exc
07/12/23 17:30:54
>>72
私もピボットテーブル大好きです。
これがあるおかげでVBA使う機会がなくてさびしいくらい。
excelでオセロゲームでも作るんでしたらVBAも必要でしょうけどね。

76:59
07/12/23 18:28:55
ピボットテーブルで頑張ってみようと思います。
質問の仕方が悪かったようで申し訳ありません。
商品名は本当です。
スレ汚し失礼致しました。

77:名無しさん＠そうだ選挙にいこう
07/12/23 19:03:16
>>73

出来ました。ありがとうございました。

78:exc
07/12/23 19:15:49
>>76
質問の仕方が悪いとは思いませんよ。
ただ残念ながら関数では実現困難なテーマでしたね。
ピボットテーブルレポートはとても便利な機能です。ぜひ活用してください。
難しい関数よりもよっぽど初心者，ド素人向きだと私は思います。

79:名無しさん＠そうだ選挙にいこう
07/12/23 20:39:45
【1 OSの種類　　　　　　.】 WindowsXP
【2 Excelのバージョン　　.】 Excel2003
【3 VBAが使えるか　　　】 No
【4 VBAでの回答の可否.】可
【5 検索キーワード　　　.】エクセル関数

　エクセルで現金出納帳をつくっているんですが、ボタンを押せば新しい伝票
（ワークシート）を作成して、残高を繰り越すのは可能でしょうか？新しい伝
票を作成するのはマクロの記録でできたんですが、残高繰越がうまくできませ
ん。よろしくお願いします。

80:名無しさん＠そうだ選挙にいこう
07/12/23 20:58:52
>>79
可能です。

81:名無しさん＠そうだ選挙にいこう
07/12/23 21:04:38
【1 OSの種類　　　　　　.】 WindowsXP
【2 Excelのバージョン　　.】 Excel2000
【3 VBAが使えるか　　　】 Yes, 少し
【4 VBAでの回答の可否.】可

いくつかブックを開いている状態で、アクティブブック以外を全て
閉じるマクロはどう書けばよいでしょうか。よろしくお願いします。

82: ◆fEYbXBV5Q.
07/12/23 21:09:12
>>79
残高は一番最終行だからその値を取得すればいいでそ

83:名無しさん＠そうだ選挙にいこう
07/12/23 21:12:06
>>81
アクティブブックの名前を取得し、ループでワークブックを切り替えて
最初に取得した名前じゃなかったら閉じる。

84:79
07/12/23 21:20:32
>>80
>>82
ありがとうございます。
最終行の値を取得させるようにするにはマクロをどう組んだらいいですか？

85:名無しさん＠そうだ選挙にいこう
07/12/23 21:38:36
>>84
例えば

lastrow = Range("a1").End(xlDown).Row

とか

86:79
07/12/23 22:00:11
>>85
そのマクロはシートa1の最終行を取得するということですか？

　例えば一つ前のシートのセルＡ２の値を次のシートのセルＡ２に取得
させるにはどうすればいいんでしょうか？

87:名無しさん＠そうだ選挙にいこう
07/12/23 22:53:57
>>86
違う

ひとつ確認。処理実行のタイミングなのだが、表がいっぱいになったら実行するのか、
表の途中で実行（月が変わったら等）するのかで繰越金額の参照位置が変わる。
前者なら特に考えずにintTransfer=cells(40,5)とかでいいし、
後者なら>>85さんの例でできる（Ａ列に入っている最終行データを参照）

88:名無しさん＠そうだ選挙にいこう
07/12/24 11:43:59
WIN2K+エクセル2000ですが、消しても非表示にしても削除しても
いきなりPDF Pro2
Sky PDF Pro
いきなりPDF FlashPaper
の3つのツールボタンが立ち上げる度に復活します

しかも移動しても移動しても、立ち上げる度にバラバラの位置に復活するため、ツールボタンのエリアが3段とか4段とか
になっていてウザイことこの上ありません・・・・・
xlbファイルの再構築とかはやってみたんですが、どうもダメの様です

↓こんな感じ
URLﾘﾝｸ(upo2.mine.nu)

89:名無しさん＠そうだ選挙にいこう
07/12/24 12:08:17
>>88
んな糞ソフトアンインスコしろよ

90:名無しさん＠そうだ選挙にいこう
07/12/24 12:42:43
>>89
(´･ω･`)ｼｮﾎﾞｰﾝ
アクロバットスタンダードも使っているのですが、複雑な書類をPDF出力するとちゃんと変換されないことが多々あるのですよ
それで他のソフトで変換すると上手くいったりいかなかったりするので、複数のPDFドライバーが必須でして・・・・・

後、フラッシュペーパーはアドビがマクロメディアを乗っ取って潰したので実質他に選択肢が無い状況でして・・・アドベ氏ね

91:名無しさん＠そうだ選挙にいこう
07/12/24 12:45:58
あ、因みに
前記3種のPDF変換ソフトとAASTの他にPDFメーカーというのも入れていますが
こちらは、ちゃんと非表示にすれば引っ込んでくれます

これはやっぱソース値糞やSkyCOMが糞って事？

92:名無しさん＠そうだ選挙にいこう
07/12/24 12:50:38
>>91
単純にどれかが糞という可能性もあるが、
競合させていること自体が原因という気もしなくもない。

93:名無しさん＠そうだ選挙にいこう
07/12/24 12:58:16
【1 OSの種類　　　　 .】 Windowsxp
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】はい少し
【4 VBAでの回答の可否】否
【5 検索キーワード　　】読み込み可能　ファイルサイズ　エクセル

１つは４０Ｍ、１つは８０Ｍの、２つのブックを同時に開くとプログラムが反応なしの状態になる。いずれも図形データがはいっており、１つだけなら、正常に動く。

機種能力によるのでしょうが、メモリー増設して、２００Ｍでも動かしたい。
プログラム上、無理かな？

94:名無しさん＠そうだ選挙にいこう
07/12/24 14:06:33
>>88
恐らくレジストリだろうから、RegMonあたりで
その挙動が発生するときのプロセスを監視してみりゃ良いんじゃね。

95:名無しさん＠そうだ選挙にいこう
07/12/24 14:34:06
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】はい少し
【4 VBAでの回答の可否】可
【5 検索キーワード　　】エクセル　リスト　ドロップダウン　（階層・複数・二重構造）

A1セルに県名等のリストから選択して「乙市」のみを表示したいとします。
（県名は要りません。A1に県名、A2に都市名と表示したいのではありません）
A1を選択→ドロップダウンボタン→県名→さらにドロップダウン→都市名→選択した都市名をA1に入力

としたいのですが、検索をかけても二重構造らしきものは見つけたのですが
それのとおりにやっても上手くいきません。
他に効率のいい方法があればそちらでも構いませんので
どなたかご教授お願いいたしますm(_ _)m

96:名無しさん＠そうだ選挙にいこう
07/12/24 18:54:37
>>88
アクロバットのアップデートしてる？？

97:名無しさん＠そうだ選挙にいこう
07/12/24 19:18:46
>>95
A１セルで県名をドロップダウンリストにし、同じA１セルに都市名を表示すると読んだが、そうゆうことなのか？　普通はセルを変えているだろ。

２層ならワークシート関数ｉｎｄｉｒｅｃｔ、３層以上ならワークシート関数indirectと同&の組み合わせでしていたのを見たような気がするが。

98:名無しさん＠そうだ選挙にいこう
07/12/24 19:21:17
A1セルから県名を選択したら、同じA1セルに都市名リストが表示されるようにしたいんじゃね？
同一セル内での2段階操作。

99:名無しさん＠そうだ選挙にいこう
07/12/24 20:46:31
別窓にした方が操作性もよさそうなのにね

100:名無しさん＠そうだ選挙にいこう
07/12/24 21:51:22
【1 OSの種類　　　　 .】 Windows2000
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】行削除　VBA

101:名無しさん＠そうだ選挙にいこう
07/12/24 21:53:50
こいつぁ
最高のエスパーが必要

102:名無しさん＠そうだ選挙にいこう
07/12/24 22:08:50
すいません､書き込んでしまいました
【1 OSの種類　　　　 .】 Windows2000
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】行削除　VBA など
A列に名前、B列に金額、というリストがあります
名前ごとの合計のみ出して他の場所にコピーして使いたいのですが、
どのようにすればよろしいでしようか？

集計した後、ActiveSheet.Outline.ShowLevels RowLevels:=2で合計前の数字を隠して
表示しないの行を削除、としてみたのですがうまくいきませんでした
また、"計"の文字が入った行のみ削除・・というのは"計"という文字が入った名前の人がいた場合消してしまいます･･
（ほとんどいないとは思うのですが）

名前ごとの合計をコピーして別の場所にさえ転記できれば、どんな方法でも大丈夫です
よろしくお願いします

103:名無しさん＠そうだ選挙にいこう
07/12/24 22:39:42
>>102
その先でどう使うのかわからんが
それこそピボットテーブル一発で済むと思うが

104:名無しさん＠そうだ選挙にいこう
07/12/24 22:47:42
DSUMとか

105:名無しさん＠そうだ選挙にいこう
07/12/24 22:55:52
>>103
ありがとうございます！
ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙは使ったことなかったんです
>>104
DSUMの方が簡単そうですね
人の入れ替わりがなければ・・

106:名無しさん＠そうだ選挙にいこう
07/12/24 23:01:37
今宵も、ボットテーブル友の会ですか・・・

107:名無しさん＠そうだ選挙にいこう
07/12/25 00:27:25
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 Seriescollection union VBA グラフ　離れ離れ

・質問１
グラフで新たな系列seriescollection.Newseriesを作るとき、
離れたいくつかのセル範囲を一まとめにして
それをseriescollection.xvalues　seriescollection.values
それぞれに代入したいんだけどVBAで自動でできないかな？
手動だとCtrキー押しながら該当セルを選択すれば一まとめにできるけど

・質問２
グラフで新たな系列seriescollection.Newseriesを作るとき、
Index_ｎ　Seriescollection(ｎ）のｎ値を自分で設定できないのか？
つまり新たに作る系列の識別番号（識別名でも可）を自分で設定したいわけ
Defaultだと勝手に割り振られるので不便
VBA中でその系列を操作したいので

108:名無しさん＠そうだ選挙にいこう
07/12/25 00:46:51
>>107
複数の離れたセルをいっぺんに指定するには、セル名をコンマで区切って書けばいい。
Range("A1,C3,F5")

109:107
07/12/25 00:53:00
>>108
前やった方法で

set RR=Range("A1,C3,F5")
with activechart.seriescollection.Newseries
.XValues=RR
.Values=RR
end with

ではエラーになりました。
VBAではむりなのか？
手動でやるとXValues値は
=(hoge!A1,hoge!C3,hoge!F5)
となっていた

110:名無しさん＠そうだ選挙にいこう
07/12/25 01:20:27
>>109
型の問題じゃないの？たとえば
.Values=RR
じゃなくて
.Values=RR.Value
とか。
よく確認せずに適当に書いてるけど。

111:名無しさん＠そうだ選挙にいこう
07/12/25 05:01:53
URLﾘﾝｸ(6111.teacup.com)

エクセルについてですが、上の画像の「あいうえおかきくけこ」
と書かれている欄がありますが、この文字群をひとつの升目の中に
書きたいんです。
あいうえお」と書かれている欄の下のように升目を大きくして、一目で分かるように
したいんです。どうすればいいですか？

112:名無しさん＠そうだ選挙にいこう
07/12/25 05:06:37
>>111
ウイルス貼るなボケ

113:名無しさん＠そうだ選挙にいこう
07/12/25 05:08:28
>>111
EとFの間の線のトコでダブルクリック

114:名無しさん＠そうだ選挙にいこう
07/12/25 06:15:28
【1 OSの種類　　　　 .】 WindowsVista
【2 Excelのバージョン　】 Excel2007

セルの中に”1-24”と入力すると”2007/1/24”に
表示変更されてしまいます。
セル書式の設定の表示形式タブで
標準に設定しても勝手に”2007/1/24”
に変更されて困ってます。

”1-24”をそのまま表示するにはどうしたらよいのでしょうか？

115:名無しさん＠そうだ選挙にいこう
07/12/25 07:53:55
>>114
それはExcelのいらんお世話だな
勝手に日付け形式として変換しちゃうんだ

セルの表示形式を文字列にしておけば回避できる
　書式 → セルで設定可能
または
　'1-24
と先頭に ' （カンマ）を付けて入力
　※カンマを先頭に付けるとExcelは強制的に文字列入力と認識する

116:名無しさん＠そうだ選挙にいこう
07/12/25 10:40:47
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】

初歩的な質問なんですが、マクロの記録で作ったものをコマンドボタン
を押せばマクロが実行されるようにするにはどうすればいいでしょうか？

117:名無しさん＠そうだ選挙にいこう
07/12/25 12:13:34
コマンドボタンを右クリックすると自然にわかる

118:79
07/12/25 16:49:04
この前、質問した現金出納帳を作ってるものです。
今、シート1をコピーするマクロはできたんですが、コピーしたシートの
日付、摘要、入金、出金をクリアしてシート１の次頁繰越をコピーした
シートの繰越残高に持っていくことができません。
作っているファイルはこんな感じです。
URLﾘﾝｸ(www.dotup.org)

うまいマクロの組み方を教えてもらえないでしょうか

119:名無しさん＠そうだ選挙にいこう
07/12/25 18:18:30
>>118
まずAD12はこうした方がいい
=IF(D12<>"",$AD$7+SUM(R$12:R12)-SUM(X$12:X12),"")　以下コピー
AD54は
=$AD$7+SUM(R$12:R54)-SUM(X$12:X54)

マクロはセキュリティで見てないが
書式固定で次ページ繰越はAD54 で決まってるんだろ？
それを次ページ作ったらAD7に貼り付ければ済むじゃない

120:名無しさん＠そうだ選挙にいこう
07/12/25 18:42:02
>>115
カンマは「,」。「'」はシングルクォーテーション。

121:名無しさん＠そうだ選挙にいこう
07/12/25 18:42:06
これだと中級レベルになるの？
関数20種類以上使用可
グラフ色変更
その他の機能
マクロVBA
ピボットテーブル
集計

122:名無しさん＠そうだ選挙にいこう
07/12/25 18:48:50
>>111
書式→セル→配置→折り返して全体を表示する

123:名無しさん＠そうだ選挙にいこう
07/12/25 19:05:55
>>121
内容しだいで初級にも中級にもなる。
だいたい「その他の機能」ってなんだw

124:名無しさん＠そうだ選挙にいこう
07/12/25 19:16:25
>>115
レスありがとうございます！！

早速試しましたところ、うまくいきました。

色々試してみてもダメだったのであきらめてたんですけど、すごく助かりました。

125:名無しさん＠そうだ選挙にいこう
07/12/25 19:19:18
>>118
マクロの編集画面で
シートコピーの直前に
　 kurikosi = Range("AD54")　を挿入
シートコピーして削除やらなにやら終わった時点に（多分アクティブシートいじったりしてなければ一番最後でいいと思う）
　　 Range("AD7") = kurikosi　を挿入

これでシート名とか余計なこと考えずにコピー出来る

126:名無しさん＠そうだ選挙にいこう
07/12/25 21:28:37
（1列目）『月日』が記載されている。
（2列目）『休日』と『平日』が記載されている。

（3列目）『販売個数』が記載されている。
（4列目）ここに2営業日前の販売個数の値を取得する関数を記載したい。

COUNTで平日を2つ数えたときの行を取得等、考えましたがわかりませんでした。
どのように記載すればよいのでしょうか？

127:名無しさん＠そうだ選挙にいこう
07/12/25 22:01:13
ちょっとした勤務メモを作ろうと思っています。
2008/1/1 9:30というのをオートフィルで日付だけ変えて、
2008/1/2 9:30。2008/1/3 9:30…と続けていくなんてことが出来ないので
困っているのですが、何か他にいい方法があるのでしょうか？

WinXP、Excel2003です。

128:名無しさん＠そうだ選挙にいこう
07/12/25 22:07:40
>>126
For n = 10 to 1 Step -1
if cells(n,2).value ="平日" then
heijitucount = heijitucount +1
if heijitucount =2 then
activecell.value=cells(n,3).value
endif
endif
next n

>>127
何でだろう？俺の環境だと普通にできる。
yyyy/m/d h:mmで。

129:名無しさん＠そうだ選挙にいこう
07/12/25 22:18:14
>>127
=A1+1 にしとけ

130:127
07/12/25 22:21:42
>>128
お、レスありがとうございます。
試してみてわかりました。僕はそのセルの表示設定で時刻のみ9:30とだけ表示されるように
していたのですが、その状態でオートフィルしていたのでダメだったみたいです。
セルのデータ自体は同じなので表示形式が原因だなんて思いもしませんでした。
ややすっきりしない部分はありますが、それは僕の表の作り方がまずいということですね。
オートフィルするときだけ表示形式を変えることにします。

すぐに解決できてよかったです。ありがとうございました。

131:127
07/12/25 22:24:27
>>129
そんなやり方もあるんですね。それもいいかもしれません。
何か他の表で使えそうな気がします。
教えてくれてありがとうございます。

132:79
07/12/25 22:57:07
>>125
ありがとうございます。マクロの記録で作ったのはうまくいきました。
これです。
Sub 新規伝票作成()
'
' 新規伝票作成 Macro
' 新しい伝票を作成し、内容をクリア。その後、残高繰越。
'
kurikosi = Range("AD54")
Sheets("現金出納帳").Copy After:=Sheets(Worksheets.Count)
Range("AD7:AI8,B12:AC53").Select
Range("B12").Activate
Selection.ClearContents
ActiveWindow.LargeScroll Down:=-1
Range("H5:I6").Select
Range("AD7") = kurikosi
End Sub
ただ、これをコマンドボタンに貼り付けるとなぜかエラーが出るんですが。
Private Sub CommandButton1_Click()
kurikosi = Range("AD54")
Sheets("現金出納帳").Copy After:=Sheets(Worksheets.Count)
Range("AD7:AI8,B12:AC53").Select
Range("B12").Activate
Selection.ClearContents
ActiveWindow.LargeScroll Down:=-1
Range("H5:I6").Select
Range("AD7") = kurikosi
End Sub

133:126
07/12/25 22:58:12
>>128
VBAではなく関数で実行したいのです。
理由は値を変更したらすぐ反映されるようにするためです。

134:名無しさん＠そうだ選挙にいこう
07/12/25 23:00:11
>>133
>1位読めよ

★4 質問テンプレ(雛形)は必須じゃないけど、
　　　OSやExcelのバージョン､VBAの可否など(下記テンプレ1～4の情報)は必須情報。
　　　　　　　　　　　　　　　　　~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

135:名無しさん＠そうだ選挙にいこう
07/12/25 23:11:31
>理由は値を変更したらすぐ反映されるようにするためです。
それはVBAを使わない理由にはならない

136:名無しさん＠そうだ選挙にいこう
07/12/25 23:17:49
Excel VBAに自体に関する質問です。

Office2007が出ましたが、少し調べたところでは、それによりExcel VBAも変わるみたいですね。
（VBAはなくなる？？）

わたしはVBA全くの初心者なのですが、今からVBAを勉強することに価値はあるでしょうか？
みなさんのように既にVBAができる人はいいですが、わたしのような全くの素人が
今から書籍を買って、時間と労力かけて勉強するに値する技術でしょうか？

今すぐVBAを使って何かやりたいことがあるわけではなく、転職の際に有利に働くかなと思い、
勉強することを考えていました。

宜しくお願いします。

137:名無しさん＠そうだ選挙にいこう
07/12/25 23:46:10
>>132
シートコピー後のRangeの前に全部
Worksheets(Worksheets.Count).　　を入れましょう

138:名無しさん＠そうだ選挙にいこう
07/12/26 00:19:20
>>122
39

>>112 113
sine kasuga!!fuck!

次ページ