Excel総合相談所　12

Excelに関する質問は、ここで！

　　　　 /）_/）　　　 （　・質問する人は可能な限り具体的に書いてね。
　　　　< ﾟ _･ﾟ> .｡oO（　・Excelのバージョン、OSのバージョンも書くとレスが付きやすい。
　　ﾉ） /　　 |　　　　（　・回答がなくてもキレないで。
　　＼(＿,,,_,,,）　　　（　・分かる人はできるだけ回答して下さいませ。

前スレ
Excel総合相談所 11
http://pc2.2ch.net/test/read.cgi/bsoft/1045997062/

過去スレとFAQは >>2-5 辺りを参照

【過去スレ】
Excel総合相談所
１　http://mentai.2ch.net/bsoft/kako/965/965792827.html
２　http://pc.2ch.net/test/read.cgi/bsoft/986283001/
３　http://pc.2ch.net/bsoft/kako/1004/10044/1004432306.html
４　http://pc.2ch.net/bsoft/kako/1012/10124/1012439547.html
５　http://pc.2ch.net/bsoft/kako/1018/10180/1018055390.html
６　http://pc.2ch.net/bsoft/kako/1023/10238/1023811906.html
７　http://pc.2ch.net/bsoft/kako/1028/10287/1028725250.html
８　http://pc.2ch.net/bsoft/kako/1033/10339/1033983470.html
９　http://pc.2ch.net/test/read.cgi/bsoft/1038376475/
10　http://pc2.2ch.net/test/read.cgi/bsoft/1042913355/

【FAQ】
Q.セルに入力した値が勝手に変わってしまうのですが
（先頭のゼロが消えてしまう、日付として解釈されてしまう）
　入力したままの形で表示させるにはどうしたらいいですか？
A.入力する時、先頭にアポストロフィ(')をつけるか、
　該当するセルで右クリック−「セルの書式設定」−「表示形式」で「文字列」を選択。

Q.列名がA，B，C，D，Eではなく、１，２，３，４，５になってしまいました。
A.ツールメニュー：「オプション」 -「全般」タグで
　『R1C1 参照形式を使用する（C）』のチェックを外せば直ります。

関数式について教えてください。

会社で、４月の予定表を作りました。
http://res9.7777.net/bbs/kageura/
こんな風でもっと数が多い感じに。

で、４月に「Ａ」の仕事を何件したか、
「Ｂ」の仕事は何件・・・って感じのを作りたいのですけど
教えてください。

画像は2000ですが、会社のは97です。
ＯＳはwin2000です。

>>3
あの・・
ホンとに分からないんですね・・

日付はB2から　よこに　1　2　3　4　・・・30　って
A3から　縦にA　B　C　D　E　って
そんで　仕事の数を　日付とAとかの交点に　数字だけ入れる

Aの集計
=SUM(B3:AE3)

ttp://res9.7777.net/bbs/kageura/
こんな感じでどうですか？

>>4
ありがとう。
でもえと、「Ａ」「Ｂ」「Ｃ」・・・の仕事は列が決まっていなくてですね、
画像よりもっとデータがいっぱいあるんですね。
で、「今月Ａの仕事は、何件やった」って関数式でできればなって
思ったんですよ。

説明が足りなくてごめんなさい。
お付き合いください。

>>6
あぁ
ｍさんの　画像のように　入力したいんですね
ちょっと　待って下さい。やってみます。
ちなみに何個くらいＡＢＣとかあるんですか？

>1(986)
乙。

>>6
サンプル
ttp://res9.7777.net/bbs/kageura/

以下　関数を抜粋

B11
=SUMIF(A3:A9,"A",B3:B9)

N15
=SUMIF(M3:M9,"E",N3:N9)

P11
=SUM(B11:N11)

�@セルAが変更されたらセルBに関数を挿入する。
�AセルBが変更されたらセルAに関数を挿入する。
という風にしたくてマクロを
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRow As Long
Dim MyCol As Integer
MyRow = Target.Row
MyCol = Target.Column

If MyRow = 17 And MyCol = 3 Then 'セルA（17,3)
A→B
ElseIf MyRow = 19 And MyCol = 3 Then 'セルB(19,3)
B→A
End If

End Sub

という風にやってみたら無限ループに陥ってしまいます。
この無限ループを抜け出すにはどうすれば良いのでしょうか？

教わってきました・・・。
=COUNTIF(A1:X12,"A*") でできるみたいです。

=SUMIF でもできそうですね。
とても勉強になりました。
いろいろな方法で試してみたいと思います。

ごめんなさい、画像じゃ伝わらなかったですよね。
親切にしてくださって、ありがとうございました。

>>10
当たり前　と　言いたくなるが・・・
他の方法を考えた方がいいかと・・

ちなみに　この案のままいくなら

このSUBの外で　フラグ用の変数を定義
A→Bの時に
フラグB＝”変えた”

ElseIf MyRow = 19 And MyCol = 3 Then 'セルB(19,3)
　　IF　フラグB＜＞”変えた”　THEN
　　　B→A
　　Endif
End If

を、かなーり工夫すれば　出きるかも

あ・・・
それかA→Bの時にBに入れた内容を覚えておいて、
Bが、覚えておいたもの（VBAが入れた）か、操作者が入れたかを
判断するとか・・・

>>11
うそ・・・
反対に　勉強になりました・・

>>13
というか、
Aの数だけ数えりゃいいのか　＜=COUNTIF(A1:X12,"A*")
後ろの数字はなんだったんだ・・・　鬱

>>10
フォームイベント停止にはフラグを使わざるを得ないけど、
シートイベントの停止はこっち。

Private Sub Worksheet_Change(ByVal Target As Range)
　Application.EnableEvents = False
　'処理
　Application.EnableEvents = True
End Sub

>>10
10さん　スマン

>>15　ですage

勉強になりますです

コピーできないようにしたいんですけど
どうすればよいのでしょうか？

>>17
なにを？

>>18
説明不足ですいません。
特定のシート全体をコピー不可にしたいんです。

何故？

>>20
配布用の資料を作っているのですが、それが印刷されては困るものだからです。
故に「ファイル」-「印刷」とかは使えないようにしましたが
コピーして新しいBookに貼り付ければ
新しいBookの方で印刷できてしまうので
コピーさえできないようにしたかったのです。
コピー不可にすることは可能なのでしょうか？

ＯＳ窓、Ｅｘｃｅｌ２００２使用。
マクロを使ってデータ入力・処理しています。
で、データ入力する際に、データ登録ダイアログボックスが表示されますが、
ダイアログを開いた直後は、
カーソルがデータ記入欄(の最初の欄)にあるのに、
一度登録を押してから二度目以降は、
カーソルをＴａｂキーやマウスでデータ記入欄に移動しなくてはなりません。
登録を押してもカーソルがデータ記入欄に戻っていて、
連続して入力できるようにする設定はないでしょうか？

>>22
SetFocus　

ヘルプでSetFocusを検索して、設定してみたらできました。
どうもありがとうございました。
もうＥｘｃｅｌっていろいろありすぎてワケわからんです。
本当にありがとうございます。
これで月曜日から、また頑張れそうです。

>>21
配布してしまう資料なのに印刷はするなってのがそもそも矛盾してるな。

つーか単にシートを保護すればいいんじゃないの？

もしくはブック保護か

メニューバーを全部削除したり、ショートカットキーを使用できなくするとか

もしくはって言うか両方だな。セルを保護し（デフォ）、シートを保護し、
ブックを保護する。

>>21 PDFにすりゃいいじゃん。

Office2000使用です。
Web用に保存を使ってホームページを作るのですが、
画像を貼った場合に「○○.files」フォルダができて画像が
別ファイルで定義されてしまうのですが、
普通のＨＰ作成ソフトのように、「○○フォルダの××.jpg」と
既存の画像ファイルを指定することはできないのでしょうか？

あ、ExcelとWordしか使えないという条件で作るのでＨＰ作成ソフト買え
とかの回答はなしで・・・
よろしくお願いします。。

ダンディーです
http://www.k-514.com/
(σ・∀・)σ

http://www2.leverage.jp/start/

エディタ使えばいいのに……

その勝手にできる「○○.files」フォルダを無視して、
自分でフオルダつくって、やればできないかな？（手動で
「○○.files」フォルダは削除して。

フリーのHP作成ソフトもあるから、そういうの使ったら？＜これもダメか＜条件

>>33

その方法を考えてやろうとしたのですが・・・
保存時に「○○.files/Excelで勝手に指定.jpg」で
ソースが組まれてしまうようです。

なのでWeb用に保存したあと、ソースを見て
一つ一つ指定しなおさなければならないようです・・・
ページ数が多いとめんどくさくてたまりませんね（泣）
直指定にソースが組まれる方法はないのでしょうか・・・

＞フリーのHP作成ソフトもあるから、そういうの使ったら？
本当は使いたくて仕方がないのですが
訳あってそれしかつかえないのです・・・

セルの書式設定で配置を縦にしたので、
12月と表示したいのですが

1
2
月

↑のように表示されます。

12
月

↑のように表示するにはどうすればいいのでしょうか？

29さんは　講師ですか？　などと言ってみる・・

（手動）
相対パスで指定しておけば、一回やればいいんで
そんなに面倒でもないと思うけど・・

>>35
配置を縦にせず、横のまま
まず12を入力、次に CTRL+Enterを押して 月 を入力する

CTRL+Enter じゃなくて Alt+Enter だった

>>37
言い忘れましたが、セル結合してあるのですが。。。

セル結合したまま12と表示するのは不可能ですか？

>>35
配置は横のままで

12（ここでAlt＋Enter）月

12
月
になります

>>38
すいません。解決しました。ありがとうございました。

入力した時だけ「円」と表示したい時
セルの表示形式の設定はどうすればいいのですか？

訂正
入力してあるとこだけ「円」と表示したい時
セルの表示形式の設定はどうすればいいのですか？

入力していないところは無表示で。

セルに自動的に印刷日付を入れるにはどうしたらよいのですか？

>>36
講師ではないですが、気分は似たようなものかなぁ・・・。

会社命令で超特急でＨＰのプロトタイプを作らなくてはいけないのですが、
今使えるのはPCの使い方があまりわからない新人だけ。
ソフトの使い方を教えてる時間もないので
唯一新人の使ったことのあるExcel＆Wordで何とか作ろう、ということに
なったんです・・・その場しのぎといいますか

作るだけならいいんですが保存しても相対パスにならないので
知らない人が構造をみたら何だかわからないのでそれも困る・・・と
いうことで質問させていただきました。

ちなみにまだ解決してないので、ご存知の方、教えてください・・（泣）。

>>44
印刷日付＝印刷するその日の日付がでればいいのでしょうか？

=TODAY()
で今日の日付がでますよ。

>>43
G/標準"円";;;G/標準""

コンマ付き　おまけ

###,###,###"円";;;G/標準""

教員なんですが
平均との差をグラフで表示したいのですが、どうすればよいでしょうか？

20

10

0

-10

-20
　　　　　　　　　　こんな感じに。
要するに、合計-平均のグラフを表示させたいのですが。

>>49
平均との差を表にして、それを元にグラフを作ればいいんじゃないの？

やはり直接作る事は不可ですか？

>>51
それにこだわる意味が理解不能なんだけど。

ヤフーオークションで、凄い人気商品、発見！！！

プランテック製の「 RX-2000�V 」を改造済み
にした、アイティーエス製の「 RX-2000�V 」↓
http://user.auctions.yahoo.co.jp/jp/user/neo_uuronntya#.2ch.net/

ヤフーオークション内では、現在、このオークション
の話題で、持ちきりです。

ヤフー ID の無い方は、下記のホームページから、
購入出来る様です↓
http://www.h5.dion.ne.jp/~gekitoku/#.2ch.net/

>>51
52に同意
ここで質問している間に平均との差の表つくって　グラフにする。

合計の表から　いきなり平均との差の表を作るのは無理

合計のグラフ作って、目盛りのとこにテキストボックスで　+20　+10　0　-10　-20　って
書いて貼り付けてみても、グラフと連動しないし。

>>45
29さんは　HP作って　実際にNET上に公開したことありますか？
保存形式の心配より、
限られた時間、人材でプロトとはいえ、内容の充実したHPを
作ろうとしたら、
コンテンツを考えた方がいいですよ。
それに、UPするもの　初めは手間がかかるものです。

まず、完成、仮UPを　目標にしたらいかがですか・・

それに、多分無理です。＜保存時に「○○.files/Excelで勝手に

>>54
補足

合計の表があると

平均を関数で計算して

平均との差　を　関数で作る

http://yahooo.s2.x-beat.com/linkvp/linkvp.html

凄いサイト発見です！！　http://f2.aaacafe.ne.jp/~ishigaki/default.html

マクロをExcelを起動することなくマクロプログラムを見たいのですが、
そういうツールは存在するでしょうか？

>>59
そんなツールは知らんが、VBEでエクスポートしてファイルをテキスト形式
で開けばよいのでは？

エクセルで給与明細を作りたいのですが、できれば社会保険料の表を作り、各給与明細に等級を入力するとその保険料が出力するようにしたいのですが、
やり方があるのならどのようにすればいいのでしょうか？

>>61
VLOOKUP

Excel2000でグラフを作ったんですけど、
Z軸がデフォルトで0〜100%になっていたので
0〜20(単位無し)に変えたいのですが
軸の書式設定の表示形式タブでいろいろ設定しても、
おかしな値になるだけで、うまくいきません。

ヘルプミプリーズ

>>63
Z軸に対応する　表の値は
0〜20におさまってますか？

軸の書式設定の表示形式タブで"標準"を選択すると、
Z軸が0〜100%から0〜1になってしまいます。
この状態で目盛タブで最大値を20に設定すると
Z軸が0〜0.2になってしまいます。0〜20に設定したいのに！

>>63

目盛りのとこで
最小値0
最大値20
交点0
で、
グラフ全体を大きく表示させて

>>64
はい、収まってます

>>64

表のデーターが、
0.1　とか　0.12
とか　少数じゃないんですか？

全部100倍して、0〜20におさまるようにしる

>>66
おお、Z軸が0〜20%になりました！
後は%を取りたいのですが・・・。

>>68
表の値は、整数のみです・・・。

一度、その　0〜20だけの　単一のグラフ作ってみたら？

それと、いま、どんな種類のグラフ作ってんの？

系列1の最小値　最大値
系列2の　　　　々
系列3の　　　　々

おせーて

セルに入ってる値で

>>69
Z軸の　表示形式を　標準に

でも　そうすると　多分0.01　から　0.2　までに　戻るかも・・・

>>45
なんか、もう、だめじゃん。

＞会社命令で超特急でＨＰのプロトタイプを作らなくてはいけないのですが、
＞今使えるのはPCの使い方があまりわからない新人だけ。

「あまりわからない」のは新人じゃなくて、アンタだってば。
「Excel＆Wordで何とか作ろう」って発想が、もう、てんでダメ。
超特急でプロトタイプを作るなら、専用ソフトを導入しなきゃ。
そしたら、プロトタイプっていうか、見本データはオマケで付いてるし。

もっと原価とかTCOにシビアにならなきゃダメよ。　(´ー`)ｙ−〜〜

>>71
初めは、正規の表でやっていたのですが、どうしたもうまくいかなったので
今は原因追求のため、簡単な表を作成し、行っています。

グラフの種類：縦棒
詳細：３D効果の付いた積み上げ縦棒グラフ
系列：行

　　　　　最小値　最大値
系列1　　0 1
系列2　　3 11
系列3　　2 15

宜しくお願いします

>>73
ワロタ

でも>>45さん　小さい会社では　ありがちなことです
あれこれ心配するより
まず、行動（HP作成＆UP）がんばってください。

すみません。

　　　　　最小値　最大値
系列1　　0　　　　　　 1
系列2　　3　　　　　　 11
系列3　　2　　　　　　 15

>>72
標準にしたら、Z軸が0〜20%から0〜0.2になっていましました・・・。

・・・
×３D効果のついた100％積み上げ棒グラフ
○３D効果のついた積み上げ棒グラフ

ここじゃないですか？

http://res9.7777.net/bbs/kageura/

こんな風に　グラフの高さが　一致してません？
これは　構成割合を　表すやつですよ？

>>76
それに
系列1,2,3を足したときに
20を超える組み合わせがあると　おかしくなるよ　きっと

>>78-79
おおおおおおおおおおおおおおおおおおおおおおおおお
まさにそのとおりでした！
お手数をお掛けしました。
ありがとうございました！

無事に表示できました　m(_ _)m

Excelの「貼り付け」がうまくいかず困っています。
わかる方どうか力を貸してください。
例えば、Wordで「あ（改行）い（改行）」とします。
それを全コピーして、Excelに貼り付けます。
そこで、Excelセル指定を横「A1,B1」に指定して、
横に貼り付けたいのですが、そうすると形式が違うと出て
縦方向しかできません。
横にできる方法がわかる方、ぜひ教えてください。
これが使えるとかなり便利なのですが･･･
宜しくお願いします。

すみません。言い忘れました。
バージョンはExcel2000です。

いきなり　代案

まズ
普通に縦てに貼り付け（どこか別のセルに）
その仮の状態をエクセルで選択コピー

次に　貼り付け先で　形式を選択して貼り付け（行列を入れ替えるにチェック）

代案２

ワードの改行を　TABに入れ替える

そうすると、横に貼り付けられる

まあ、
さっきの案の方が楽

返答有り難うございます。
一回縦にExcelで貼り付けして、横形式にするということですね。
できました。
しかし、仕事上大量データをすばやく処理したいため、
できればステップ踏まずに直接横方向に貼り付けたいなと思うのですが。
わがままでスミマセン･･･

>>86
代案２の続き


改行を　一括して　TABにスル方法
ワードの編集
検索
置換

検索する文字　下の特殊文字から　段落記号　＾ｐ
置換後は　TAB文字　＾ｔ

まぁ　これも余分にステップがかかるが・・

度々スミマセン。質問の仕方が非常に悪かったと思います。
今仕事上での使い方は、Excelの「表示→ツールバー→クリップボード」
でクリップボードのダイアログを出していて、
IEのある項目を選択して「コピー」すると、クリップボードに張り付く
と思います。その動作を何回かすると、クリップボードに動作した分だけ
取れると思います。
そのコピーしたすべての物を、Excelで一気に横方向に貼り付けたいです。
最初の質問と違ってしまうかと思いますが、宜しくお願いします。

ええと
IEからコピーしたのが　クリップボードに並んでて
普通に全部貼り付けすると、縦に行きますね・・

多分、マクロかVBAでやるしかないかと

また、時間があったらVBA組んでもいいのですが、
一回縦にやって、それを横にするだけの手間さえもおしいのですか・・

すばやい返答を有り難うございました。
何らかの方法があれば使いたいと思ったのですが、
やはり、段階をつむ方法が確実そうですね。
縦にして、形式選択で横にする方法を知ることができただけでも、
本当に本当に感謝します。
地道にワンステップを踏んでみます。
夜遅くに本当に有り難うございました。

ワークシートに書きこんだ全ての物を90度回転させて、印刷したいのですが何か方法が
ありますか？プリンタのほうではなくexcelで実現させたいのです。どなたかよろしく
お願いします。

>>92
印刷
プロパティ
印刷の向き　縦or横
で　ダメなの？
違うこと言ってるの？

win98 excel2000使用しています。

特定の条件を満たすセルを選択状態にしたい時に使える便利な機能ってないものでしょうか・・？

例えば、

「奇数の行のみ選択状態にしたい」時とか・・

「M列に偶数が入力されている行のみ選択状態にしたい」時など・・

よろしくおねがいします。

オートフィルターかな

>>94
特定のセルを　選択したあと　どうしたいの？

特定のセルってのは
一応この２つ？
奇数の行のみ選択状態
？列に偶数（奇数）が入力されている行のみ選択状態

いろいろ検索して調べてみたんだけど、
なんとなく「条件付書式」を使用すればいい、ということがわかった・・

とりあえず目的としては・・

「A1からM92に表がある。
　M列に『1』が入力されていたらその行全体を着色する」

ということなのですが・・

「数式が」ってことで「=OR($A$1:$F$1="1")」ってことでいいんですかね？

=MOD(ROWS(A$2:A2),2)=1

とりあえずこれ↑使ってやりました。
これが関数ってやつですか・・・ややこしいなぁ・・・
１からおぼえなきゃ。

>>98
がんばって下さい

VBAで実現させたいのですけど、何かいい方法がありませんか？

>>100
まず　その　条件付書式で　やったら？
できたの？
VBAでやるのも、仕組みは　似たようなもんになるから・・
漏れも、まず　関数でやってみるよ。

さっきの、
A1からM92に表がある。
　M列に『1』が入力されていたらその行全体を着色する」
で　いいの？

ん？
条件付き書式は　そのセルにしか働かないのか・・・　な？
ちょと　VBAで　やってみる・・・

>>101
多分レス先間違ってると思いますけど。

>>103
あ・・・　スマン
92さんは、
>>93の案では　違うんですか？


>>94さん　おまけ

M列の1〜10行までに　1　が　ある行は　着色する
Public Sub test()
Dim i
For i = 1 To 10
Rows(i).Select
If Cells(i, 13).Value = 1 Then
Selection.Interior.ColorIndex = 27
Else
Selection.Interior.ColorIndex = 0
End If
Next i
Cells(1, 1).Select
End Sub

>>104
どうも。
色々とやってみたら何とか自己解決出来ました。
セルに入力した数値や文字を、別のワークシートに参照渡しして、転記先の書式を
変更して文字の配置を90度回転させたら出来ました。どうもご迷惑かけました。

>>100
えっと、メニューで　手動で　やらずに
VBAで、印刷の縦or横を　設定するなら　出来そうだけど・・・

activesheet.pagesetup.orientation＝xlLandscape　’横向き
activesheet.pagesetup.orientation＝xlPortrait　’縦向き

これを　コードにいれとく

>>105
ん・・
いい解決法ですね。
（ずっと　やりたいことが　理解できなくて　鬱・・）

OfficeXPのエクセル（２００２だっけ？）で、
挿入された図形の背景を透明化印刷
しようとすると、きれいに印刷できない。
図形のふちが、汚くなる。
同じファイルを、古いバージョンのエクセルで開いて
印刷すると、きれいに印刷できるのに。
どうすれば、きれいに背景抜き印刷出きるの？

エクセルに打ちこんだデータをヴィジュアル的な表に転換したいと思ってるんだけど、
エクセルの表に「正の字」を導入するのって可能ですか？

>>109
意味わからん
正の字　って　何？

　代理店募集中
　　　　　　貴方も月100万円稼げる！
　　　　　　http://asamade.net/web/
　　　　　　　　HP作成無料

───　 ─┬─　 ─┬─　 ─┬─　 ─┬─
.　　　　　　　│ 　 　 　├─　 │├─　 │├─
.　　　　　　　│ 　 　 　│ 　　 ││　 　 ┴┴─

とりあえず例示して説明すると・・・

当社には１番〜10番まで10種類の商品があり、
山本営業所と澤田営業所、2種類の営業所がある。

顧客のタイプはA、B、C、Dと4タイプにわけられる。

受付番号　受付日　顧客名　　　顧客タイプ　　担当者　　商品番号　　納入月日　　営業所名　　　
　　1　　　　3月3日　川田修市　　　A　　　　　　　桜田　　　　　2番　　　　3月10日　　山本営業所
　　2　　　　3月4日　呉於眞二　　　B　　　　　　　桜田　　　　　2番　　　　3月20日　　澤田営業所
　　　　　　　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　　　　　　　・

当社では上記のようなデータを月ごとにエクセルに入力しているが、
このデータをもとに、どのタイプの顧客から、何日に、どの種類の商品の注文がいくつあり、
山本、澤田二つの営業所が何日にどの商品をどの顧客に納入したかを
『顧客タイプによって色分けした線で構成される正の字』で表現する表をつくりたい。
タイプAならば赤、Bならば青、Cならば緑、Dならば黒で線引きを行う。

例えば、上記の受付番号1番のデータをもとにするならば・・

受付日3月3日の商品受付の欄に赤の線で正の字の一本目の線をひき、
納入日3月10日の山本営業所の欄に赤の線で正の字の一本目の線をひく

というように処理を行う。

例としてはこんな感じ→http://oka.arings.com/echi00009_20030414235253.jpg

と、まぁたぶん理解できんやろうけど、とりあえず説明してみますた。
VBA使わなきゃ話にならんだろうからいろいろ調べてみるます。

>>107
ごめんなさい。>>92での書きこみが漠然としていて判りづらかったですね。
どうもありがとうございました。

>>113
面白いアイデアですね
第一感としては、
小さい画像を貼り付ける
か
オートシェイプで書く
か
くらいかな

なんかいい案うかんだら、書き込みます

>>113
何でまたそんなめんどくさいことを・・・・
できないことはないが大変だぞ　100種類？の画像を用意しなきゃならないよ
一番の解決策は設計をやり直すことだと思うけどね

>>115
グラフか
ピボットテーブルのほうが、現実的のような気もちょっと・・

時間あったら　いろいろ　考えてみます

>>113
正の字にこだわらなければ、少しは簡単。
たとえば■■■■■として、一文字ごとに色を変えるとか。

>>113
グラフのほうがいいべ　(´ー`)ｙ−〜〜
見やすいし。

「正の字」なんて、手で計算するための道具なんだから
それを機械にやらせるなんて、キモイよ。

初心者です。
友達の質問なんですが、エクセルのデータを下請けさんから頂いたらしいのですが、
容量が大きすぎて、印刷ができないらしいです。
仮想メモリを増やすとか対処したのですが、（それでも苦しいです）
原因はエクセルに張り付けてる図が問題だと思います。
ファイル自体をダイエットする方法はありますか？
もしくは、図自体を解像度を落とすためにphotoshop等で再編集することはできますか？
教えてください。
よろしくお願いします。

別のシートの値を利用して、他の資料を作成していました｡
出来上がったものを開くたびに、「ファイルを開く」と出てしまい、
鬱陶しいので値のコピーをして貼り付けたのですが、
いまだに「ファイルを開く」が出てしまいます｡
リンク先を削除したいのですが、どうしたら良いのでしょうか？

windowsNT、Excel2000です｡

>>121
値のコピーをしているんなら、出ないはずだが・・・
まだ、残っているんじゃないかな。

「#DIV/0」ではなく「0」（ただのゼロ）と表示させるには？

エラーだったら0を埋めればいい

Win2000Pro Excel2002です。
グラフを作成したんですが、データラベルのサイズが変更できないんです。
データラベルをクリックすると8箇所周りに黒い点が出るんですが、ポインタを持っていってもサイズが変更できるポインタに変化しないんです。

>>125
枠の事？
これは　多分文字の大きさに比例だから
ラベルの上で　右クリック（データラベルの書式設定）
メニューから　フォントのサイズとか　変えてみたら・

http://yahooo.s2.x-beat.com/linkvp/linkvp.html

>>123
数式で0を分母とした式を入力しているはずなので
分母部分が0の場合、0を返すＩＦ関数式にする

例：=A1/B1であれば、
IF(B1=0,0,A1/B1)


ところでこの回答を書く前にちょっとしらべてて
Error.Type関数でエラー値を拾う式を考えて試してたんでが
結果が妙なんで暇な人いたら試してみて・・・・

式は、A1/B1の割り算を評価して
#DIV/0なら0、それ以外はA1/B1
を返すように
=IF(ERROR.TYPE(A1/B1)=2,0,A1/B1)

としたんだが、#DIV/0の時は0が返るんだけど、
それ以外のときはA1/B1じゃなくて#N/Aが返ってくるんですが・・・・・・

これっておれだけかなぁ？

>>128
=IF(ERROR.TYPE(A1/B1)=2,0,A1/B1)
漏れの#N/A

=IF(1=2,0,A1/B1)
これだと　計算する

？？？？

■で表現　←　それ私も考えたんだけれども・・

■で表現すると一こまにおさまりきらなくなっちゃうから、
やるとしたら｜｜｜｜←かな・・
でもこれだと正の字に比べて数量がパッと見、わかりにくいんだよなー
正の字で表現してれば、パッと見たときすぐに数量がピンとくる利点があるので・・

「>113の内容をA3サイズの表に可能な限りわかりやすく収める」という前提で考えたらこの手法がベストかなーと思う。
入力件数は毎月150件くらいにのぼるし、
実際に入力するとなると「注文受け付け」と「商品納入」の二つのデータをいれこまないといけないので、
実質300のデータを振り分けなければならない。
グラフにするとしたらどういうグラフで表現するか、ちょっと考えてみたこともあったけど、
ちょっと煩雑すぎてかえってわかりにくくなっちゃうと思う。

>>113の例の表ならば、パッとみたときに月中どのへんの日に注文が多く、
各商品への「注文及び納入」の偏差が感覚的に一目でわかるという利点もある。

>>130
ピボットテーブル
やってみそ

>>129
へんだよね
仕様か・・・・・?
Error.Typeって普通の関数と扱い違うみたいだね

>>132
他にも試したが　不思議
仕様っても　意味理解できんし

>>129, >>132, >>133
HELPには
　Excel のエラー値に対応する数値を返します。
　エラーがない場合は、#N/A を返します。
と書いてある。エラーが無い時は #N/A で仕様どおり。

C1が =A1/B1 となっているとき
D1に
=IF(ISERR(C1),IF(ERROR.TYPE(C1)=2,"0割だめ","その他"),"エラーなし")
こんな感じで使うのでは？

>>134
回答は>>128で

　　IF(B1=0,0,A1/B1)

解決してまつ

IF文の　条件が否の場合が評価（反映）されてないのが　不満なのです

>>131
ﾄﾞｷｭｿっぽいからピボットテーブルは無理と思はれ

>>136
やってみてから悩むのも
股ﾖｼ

確か　ウイザードもあったから　ガンバレ

>>137
>>119も言ってるように「正」は人間が備忘に使うものなのに
わざわざ表計算ソフトにさせようとすることじたい間違っている。
そもそもグラフで表現するのが一番いいのに、それをしないのはﾄﾞｷｭｿの証。
たかだか月150件程度なら視覚に訴えないでもオートフィルタや集計使う手もあるし。
根本的に表計算を理解していないのが痛すぎる。
まさに「ブタに真珠」。

>>138
ピボットテーブルの概念が理解出来ないのならウィザード使ってもただ混乱するだけ。

それに、分析が目的なら
？？比率とか
前年　前月対比とか
達成割合とか
構成割合とか
原価率とか

係数をはじきだす

>>139
確かに「正」の字って言うのは、どうかと思う部分はあるんだが
レス内容見る限り、130はそれなりに論理的な脳みそを持ってるように見える。

ここの作業の、コツみたいなものを手に入れさえすれば十分業務にかなう
作業をしそうだが・・・・・・・・・

何事もはじめなければ先には進めない。
特にエクセルなんてソロバンみたいなもんで
道具以上のものではないので、まず望みの結果を
出すことを目標にすればｲｲのではないかと・・・・・


その先のことは目先のことをクリアしてからだよね。
これは、人事じゃなくいうんだが・・・・・・・・・

>>122
ですよね。
実際、他のブックでも試してみましたが特にダイアログは出ませんでした。

今は家に帰ってきてしまったので確認出来ないのですが、
編集−リンク先の編集（だったかな？）を見てみると、
値の貼り付けをする前、つまりリンク先のブックが表示されています。
試しにDeleteを押してみましたが、消すことは出来ませんでした。
当然、削除の文字もありません。
これはもう諦めるべきなんでしょうか・・・。

>グラフにするとしたらどういうグラフで表現するか、ちょっと考えてみたこともあったけど、
>ちょっと煩雑すぎてかえってわかりにくくなっちゃうと思う。
~~~~~~~~~~~~~~~~~~~
この程度で頻雑でつか(w

>各商品への「注文及び納入」の偏差が感覚的に一目でわかるという利点もある。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
一応統計取ってんのに感覚的に判断するんでつか(w

手書きでやったらどうでつか?

>>142
全てのグラフを削除して
全てのシート、
全てのセルを選択してコピー→値複写

これでエラーが出るようなら、なんかｵｶｽｨ

>>143
逆切れかよ（ｗ
だれも無理に答えろとは言ってないぞ・・・・
このスレは2chでは貴重な実用スレなんだ。

煽りたいならもっといいスレがいくらでもあるぞ（ｗ

>>145
逆ギレ?
>>145さんは>>109さんでつか?

>>142です。

>>144
グラフは特に作っておらず、別のブックの値をVLOOKUPで持ってきたような表です。

Ctrl+Aで全範囲指定をし、値の貼り付けをしました。
にもかかわらず、一度閉じて再度開くと「リンク先がうんぬん」で「ファイルを開く」が出てきます。
確かいくつかのブック（すべてではありません）も、リンク先を探しに行ってました。

ダイアログが出てきても無視して、右上の×で消してしまえば問題はないとは言え、
やはり毎回出てくると非常に鬱陶しいのです・・・。

>>120
図のダイエット、とても効果があると思う。
ていうか聞く前にやってみろ。

>>120
画像は、余白を切ってちょっと小さくするとか、
縮小して、小さくするとか、
解像度（圧縮率）を下げて（上げて）容量のサイズを圧縮とか、効果あると思います。

>>120
フオトショでも
フリーソフトでも
ペイントでも（ある程度）
できます。

あと、圧縮すると、汚くなることがあるんで、
できるだけ、その画像に合った保存形式（jpgとかgifとかのこと）にするほうが、ベター

少しパソコンに詳しい人に聞けばすぐ分かります。

Excel関連の資格でオススメなのは何ですか？

>>151
断然MOUS　Excel上級
簡単に取れるし世界中どこでも証明できる。

>148
図のダイエットはわかりました！ありがとうございます。
聞く前にやってみろですね。すみません。

>149,>150
ありがとうございます。
えっと、元図が無いんです。
張り付けてあるその画像しかないみたいで。
なので、エクセルに張ってある図を
フォトショにもう一度呼び出して加工ってことは可能なんですか？
コピーでフォトショに張り付けて加工しようとしたら
あまりにも汚くて・・・。
エクセル内で図の解像度を下げたりできるんですか？
ほんとに初心者で申し訳ありません。
よろしくお願いします。

>>135
解決済は了解です。誤解をまねいたようでごめんなさい。

>IF文の　条件が否の場合が評価（反映）されてないのが　
>不満なのです
ご承知のように、IF（）は第一引数を評価した結果が真か偽によって
第二引数か第三引数を返すわけですが、
>=IF(ERROR.TYPE(A1/B1)=2,0,A1/B1)
でB1が0でない場合、第一引数を評価した結果が真でも偽でもなく
#N/Aになります。それでIF()は#N/Aを返します。 #N/A というのは、
真でも偽でもないのです。

ERROR.TYPE()を使いたければ、まずISERR()でエラーがあるかどうか
調べてから使えばいいと思います。それで例として
=IF(ISERR(C1),IF(ERROR.TYPE(C1)=2,"0割だめ","その他"),"エラーなし")
を示したわけです。

最初の説明が足りずに失礼いたしました。

>>154
なるほど、すっきりしますた
ありがとう

Excel97でデジタル署名って使えますか？

パスワードをつけて「ブック保護」したんですが、
パスワードを忘れてしまいました。
VBAのパスワードなら、フリーの解除ソフト等があるようですが、
ブックの保護はかいじょできないのでしょうか？

>>157
無理DoS

>147
"リンク元の変更"で自分自身のファイルを選択して、リンクを消すことはできる？

縦書きをしたいのですがどのようにしたらいいでしょうか？

セルで右クリック
セルの書式設定
配置
方向

文
字
列

ってとこをクリック

>>161
<(__)>
ありがとうございます。

>>159
レスありがとうございます。
家で今見ているので、明日にでも早速やってみます。

リンクを消すというのは、「リンク先の変更」を選択して削除すればいいのでしょうか？
実際にいろいろいじってみて、それでもダメなようでしたらまた訊くかもしれません。
遅くにありがとうございます。

（＾＾）

>163
159です。
編集→リンクの設定を開くと、リンク先のブックが表示されているんですよね？
そこで「リンク元の変更」をクリックすると、ファイルを選択する画面が
出てくるので、そのときに、今開いているブック(自分自身)を選択すると
不要なリンクが消えることがあるので、試してみてください。

http://www2.leverage.jp/start/

使用ソフトはEXCEL2002、WINDOWS XPです。
VBAのことで質問があります。

Range("E5").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 1).Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 1).Select

Range("D5:???? ").Select
Selection.Copy


Do　While〜Loopステートメントで処理したセル番地を
セル範囲として????の範囲に挿入してやりたいのですが、
どうしたらいいのでしょう？
????のセル番地は決まった場所ではありません。
　

>>167
addressを取得しておけばいいじゃん

表のことを詳しく書くと、
・D列に日付を必ず入力
・E列〜G列のうちどれかひとつに値を入力
・E列〜G列をE,F,Gの優先度で昇順で並べ替え
・Do　While〜LoopステートメントでG列の一番最終行のセルを認識
・D列の一番最初のデータから、Do　While〜Loopでもとめたセルの範囲
　をコピーしてほかの場所に貼り付け

という作業をVBAでしたいのです。
G列には値を入力しないセルもあり、CurrentRegionプロパティなるもの
（空白行と空白列に囲まれたセルを選択する）も使えないようなので
困ってます。

>>167
addressの取得の仕方を教えていただけませんか？
当方VBAを独学で始めてまだ一ヶ月。周りに詳しい人もいないので
基本的なこともわかりません・・・。

>>170
ActiveCell.Address

>>170
ありがとうございます。早速試してみます。

いちいちずれてるなー。
>>168　と
>>171　です。

では試してきます。

すいません。トウシロウ丸出しで申し訳ないんですが、
どこにどう入れたらいいかわからず、コンパイルしただけで
エラーが出てしまいます・・・。

167に書いた構文に実際に当てはめて頂けないでしょうか・・・。

http://www.agemasukudasai.com/movie/

>>174
つーか失敗した事例のソースコードを晒しなさいましな。

Excel2000です。
1MB少しのファイルを簡易データベースとして使っていました。
レコードが共有ドライブのフォルダに対応しているので
フォルダをハイパーリンクすれば便利だと思い
ハイパーリンクしたところ、いままで２秒程度で開いていた
ものが８秒近くかかるようになりました。
これはエクセルの使用でしょうか。
それともどこかの設定をすることで早く開けるようになるのでしょうか。

>>176
Range("D5:cell ").Selectのところで
終了時エラー1004が出て止まります。

Sub Loop1()
Dim cell As Variant

Range("E5").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 1).Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 1).Select

cell = ActiveCell.Address

Range("D5:cell ").Select
Selection.Copy
Range("a5").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 3).Select
ActiveSheet.Paste
End Sub

エクセル97、win98を使っています。アドインを登録したのですが、ツールバーに
表示が出ません。どうしてなのでしょうか？

遠くにいる友人にメールでエクセルの表を送ったところ
見事解決してくれました。
皆さんお騒がせしました。
失礼します。

逃げたな

つかあんなループで本当に欲しい範囲が得られてるんだろうか？

D列の入力が必須ならD列最下行のRowを調べれば済む話のような
気がするが

Range("D5").Select
Selection.End(xlDown).Select
r = "D5:G" & ActiveCell.Row
Range(r).Select

シート２に表がA1からあって、
それをシート１のB2から表示させる

と言うことは、出来ますか?

リンク貼り付け

http://www2.leverage.jp/start/

>>183
Sheet2.[a1].CurrentRegion.Copy Destination:=Sheet1.[a2]

複数シートの全てのシートの一行目を
削除したい。
なんか、一発で出来る方法はありませんか?

すべてのシートを選択して1行目を削除

全てのシートを洗濯
、を、メニュー選択、あるいは、キーコマンドで
行うことは、出来ませんか?

タブの上で右クリック

複数ブックを一つにまとめることは出来ませんか？
（多数のシートを持つ一つのブックに。あるいは、
全てを一つのシートにまとめたい）

もっと具体的な説明希望

Excel2000のファイルを開こうとすると
「形式が追加できません」とエラーが出て
ファイルを開けることが出来ません。

どうやったら開けられるようになるのでしょうか？

これが開かないとかなりヤバイです・・・・トホホ

ちなみにＯＳはWIN98SEで、開かないファイル容量は2.3MBくらいあります。

>>181
いや、本当に解決したんで。
お騒がせしました。

>>182
実はA列にも日付、
　　B列、C列にも値が入ります。
　　B列、C列のどちらかに値を入れた場合
　　E〜G列のいずれかに値が入ります。
　
この場合一行に二つの値が入っているので普通に並べ替え→集計をすると
集計行がぶつ切りになってしまうのでA〜C列とD〜G列の並べ替えを別々に
行い、D〜G列の並べ替えの数値をコピー(削除)後、同じくD〜G列で、
A〜C列の値が入った次の行にペースト。で、集計をするということがしたかったんです。
情報小出しになってしまってすんません。182さんの意見も参考にシコシコやります。

>>181
ちなみに友人から来たのはこれでした。で、やってみたらすっきりできました。

Sub Loop1()
Dim i As Integer
i = 1
Dim n As Integer
n = 1

Cells(5, 5).Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
i = i + 1
Loop
ActiveCell.Offset(0, 1).Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
n = n + 1
Loop
ActiveCell.Offset(-1, 1).Select


Call Range("D5", Cells(5 + i + n - 3, 7)).Select
Selection.Copy
Range("a5").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 3).Select
ActiveSheet.Paste
End Sub

Excel2002です

Ａ列のデータを、最終行まで、偶数行だけ選択するには
どうしたらいいですか。

>>196
VBAで書いてほしいの？

>>191
全てのシートを選択して
右クリックでシートの移動を選択
移動先をまとめるワークシートに指定して

移動したら保存

両方のブックを開いておいて
もしくは、選択したシートを
まとめ先にドラッグ

手動でということならこれでOK

すまん････
>両方のブックを開いておいて
>もしくは、選択したシートを
>まとめ先にドラッグ

↓
もしくは、両方のブックを開いておいて
選択したシートを
まとめ先にドラッグ

>>196
>>197

???
簡単と思ったらむずい

失敗例（20行までで）

Public Sub test()
Dim i
　　For i = 2 To 20 Step 2
　　　　Cells(i, 1).Select
　　Next i
End Sub

というか、偶数セルを選択したあと、何がしたいの？

=MOD(ROW(A1),2)=0
この関数をA1から　縦にコピーすると
奇数行は「FALSE]
偶数行は「TRUE」
って表示されるから・・・　後は考えて・・

すいません、質問があります。

あるシートに以下のような、セルの色を変えるVBAを書いています。
しかし、このシートに影響を与える他のマクロの実行中には以下のコードを実行させない
ようにするためにはどうしたらいいでしょうか?　知恵を貸してください。


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

For i = 6 To 105
Select Case Range("G" & i)
Case "A"
Range("G" & i).Interior.ColorIndex = 40
Case "B"
Range("G" & i).Interior.ColorIndex = 38
Case "C"
Range("G" & i).Interior.ColorIndex = 35
Case "D"
Range("G" & i).Interior.ColorIndex = 8
Case "E"
Range("G" & i).Interior.ColorIndex = 0
Case "F"
Range("G" & i).Interior.ColorIndex = 0
End Select
Next i

End sub

http://www.agemasukudasai.com/movie/

>>195
なんかさっきとあまり大差ないような気がするのだが。
つかそんな面倒臭い処理しなくても、これで十分だと思うが。

Range("A5").Select
Selection.End(xlDown).Select
r = ActiveCell.Row
Range("d5:g" & r).Copy Destination:=Range("d" & r + 1)

>>203
>>15

>>196
>>200
Sub EvenSelect()
　Dim strRange() As String
　Dim i As Long
　Dim y As Long
　y = Range("A65536").End(xlUp).Row
　ReDim strRange(1 To y \ 2)
　For i = 2 To y Step 2
　　strRange(i \ 2) = "A" & i
　Next i
　Range(Join(strRange, ",")).Select
End Sub

あくまで一例。
他にはUnionを使ったり、作業列をフラグとしたSpecialcellというのもあるね。

>>203
Application.EnableEventsを使う。
それ以前に、今のコードは全てのセルの変更に反応してしまうので変えた方がいいかも。

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 7 Then
If .Row > 5 Then
If .Row < 106 Then
Select Case .Value
Case "A"
.Interior.ColorIndex = 40
Case "B"
.Interior.ColorIndex = 38
Case "C"
.Interior.ColorIndex = 35
Case "D"
.Interior.ColorIndex = 8
Case "E"
.Interior.ColorIndex = 0
Case "F"
.Interior.ColorIndex = 0
End Select
End If
End If
End If
End With
End Sub

二つの日時の間に何ヶ月あるかどうか調べる方法ってありますか？
日数ならなんとかわかったのですが、月数を知りたいのです。

例えば平成１５年４月１５日から平成１５年６月１５日の
間の月数（２ヶ月）を出すにはどうやったらいいんでしょうか？
１ヶ月に満たない端数を切り捨てる方法も知りたいのですが、
どなたか教えていただけると助かります。

>>207

漏れにはもう　分からんです。（依頼者ではないが）
これは、A列に何か値が入ってないと動かないのですね
あと、3000行でもはや　エラーで止まって、
一番下まで、選択が成功しません。
100行までとかならOKです

補正したくても　むずい

>>205
ありがとうございます。でも今の私には、その構文を見てすぐに
納得できるほど精通してないので、明日仕事場で本を片手に確認してみます。
で、いつの日かVBAをマスターできる時が来たら今度はここで質問に答える側
になりたいと思います。

>>209
A1＝2003/4/15
B1＝2003/6/15

=DATEDIF(A1,B1,"m")

＝２

>>196です。
いろいろ考えて頂いて、ありがとうございます

>>197 >>200-202 >>207 >>210

ＶＢＡでなくてもかまいません。
手動で何回かクリックするだけの作業手順でもかまいません。
一行おきにキーをおしながらマウスで選択する以外の
方法ならと思って質問しました。

偶数行を選択したあと、それをコピーして、
Ｂ列にペーストしようと思っていました。

>>209
A1に平成15年4月15日、A2に平成15年6月15日が入力されていたとする
=DATEDIF(A1,A2,"M")
1ヶ月に満たない端数は切り捨てられます。

>>196 = >>213です
　　Ａ
１ 時計
２ 200
３ 漫画
４ 300
という風にデータがあって
　　　Ａ　　Ｂ
１　時計　200
２　漫画 300

という風に整形するのが目的でした

>>213

Public Sub test()
Dim i
For i = 2 To 65536 Step 2
Cells(i, 2) = Cells(i, 1)
Next i
End Sub



これで　偶数せるのコピーです
35536まで45秒（P3　500MHz）

>>215
最初からそう書けばいいのに・・・
もっと簡単じゃん。。

>>216
ちょっとまって
コピーだけじゃ　だめじゃん

　　　　　＿＿＿＿_＿
　　　 ／＿　　　　　　|
　 　 /.　＼￣￣￣￣|
　　/　　／　 ―　― |
　　|　 /　　 　-　　- |
　 ||| (5　　　　　　>　|
　| | |　　　　 ┏━┓|　　 ／￣￣￣￣￣￣￣￣￣￣
| | | | 　　　　┃─┃|　 ＜　こんなサイトを見つけた
|| | | | 　＼　┃　 ┃/　 　 ＼　　正直、スマンカッタ
| || |　|　　　￣　　　　　　　　　＼＿＿＿＿＿＿＿＿＿
http://freeweb2.kakiko.com/tama/

http://www2.leverage.jp/start/

>>215
100行までのサンプル

Public Sub test()
Dim i
For i = 1 To 100 Step 2
Cells(i, 2) = Cells(i + 1, 1)
Next i

For i = 100 To 2 Step -2
Rows(i).Delete
Next i
End Sub

結果
A　　　　　B
12
34
56
78
910

もともと　Aに縦に1、2、3・・・と

早く言ってくれ。>>215

>>221
（ ´,_ゝ｀）ﾌﾟｯ

1回目のforは99回までかな・・

>>196 = >>213です

そんな難しいことだと思っていなくて、質問しました。
>>215みたいに質問すればよかったと思います。

２００さん　いろいろありがとうございます。

>>224
それに、
手作業でも　同じ手順の繰り返しだから、
手順記録のマクロでも、工夫したらできるかもです

>208
>206

ありがとうございます。参考にさせていただきます。

このところ大きなシートを扱うことが増えまして
（具体的には３万行×２０列くらい）
ワークシートが６枚あってファイル全体で30Mbyteくらいになっています。

１枚目のワークシートから順にデータを加工していくので、
ワークシート全体のコピーや、１列全体のコピーを多用するのですが、
しょっちゅう『クリップボードがいっぱいです』『クリアしてください』と出て
難儀しています。クリアしても、次のコピペはうまくいかないのが大半なので。

Officeクリップボードに割り当てるメモリを増やすような方法は無いですかね。
以前同じ処理を2000行くらいの規模でやってたときは全く不便が無かったんですが.....

環境はWin2kSP3, Office2000, メモリは640M積んでます

>>227
rangeA.copy destination:=rangeBで、
クリップボードを経由しないコピーだったら大丈夫かな？

>>228
なるほど。そうきますか。

でも、メモリ余ってるのに『メモリ不足』みたいなエラー吐かれると納得いかなくて

計算で出した数値が１〜１０の場合は「Ａ」１１〜２０は「Ｂ」２１〜３０は「Ｃ」
と判定するにはどうすりゃよいですか

>>230
=IF(AND(A1>0,A1<11),"A",IF(A1<21,"B",IF(A1<31,"C","31以上")))

>>230

=CHAR(65+(INT((A1-1)/10)))

これが天才の閃き

http://www2.leverage.jp/start/

>>232
分かるが懲りすぎかと・・・（ｗ

ワークシートを指定してのセル参照についての質問です。

普通の場合、「=Sheet1!A1」とするところの「Sheet1」の部分に
セルの値を代入することは可能でしょうか？

具体的にいうと、ワークシートがいくつかあるブックにおいて、
（仮にワークシート『WS1』『WS2』『WS3』『WS』があるとすると）
『WS』のA1の値を「WS1」「WS2」「WS3」と変化させることによって、
『WS』のB1に「=WS1!B1」「=WS2!B1」「=WS3!B1」の値を参照させるには
B1にどのような式を入れたらよいのでしょうか？

>>235
indirect

http://www2.leverage.jp/start/

>236
ありがとう！ありがとう！
その一言に、ほんっと助かりました。

>>215
亀ですが、これなんかどや。

Ｂ列に　=OFFSET($A$1,ROW()*2-2,0,1,1)
Ｃ列に　=OFFSET($A$1,ROW()*2-1,0,1,1)

確定させたかったらＢＣ列コピー
同じ位置に値貼付けＡ列削除。

>>205
仕事場でやってみたらすっきりできました。
で、本を片手に私なりに解読してみました。

・セルA5を選ぶ
・A列の下方終端を選ぶ
・選択しているセルの行(番号)をrとして代入
・D〜G列で５〜r行までの範囲をコピー
　それをD列のrより１行下に貼り付け

という解釈でよかったですか？
Rowsプロパティもセル範囲の指定の仕方も全く知りませんでした・・・。
めちゃくちゃ勉強になりました。205さんありがとうございました。

エクセルの簡単な使い方を教えてください。
票の集計をする方法を。

>>231,232

ありがとう

>>241
=ｾﾙ番地+ｾﾙ番地

Σ

>>243
わかりません・・・

>>241は釣り師。

ムリっぽいんだが、オートシェイプの中に書かれた文字って、検索
したり、置換したりって出来ないのかな？

excel文章をHTMLにするフィルタ通しても、オートシェイプの中は
変換されてなかったよ。

>>247
参考
Excel VBAについて
http://pc2.2ch.net/test/read.cgi/tech/1023755967/
の730以下

どなたか教えてください。

OS:Windows2000 PRO
Excel:Office2000

セルをコピーし続けると、
12個コピーしたタイミングで
"これ以上コピーすると・・・・"
のダイアログがでてきてとてもうっとうしいです。

これを出させない方法はないですか？
コピー履歴を無効にするやり方でもよいです。

もうひとつ教えてください。

OS:Windows2000 PRO
Excel:Office2000

Officeアシスタントを無効（表示しない）にしている状態で、
Ｆ１キーを押下してもヘルプ表示を抑止させる方法は
ないでしょうか？

セル内の修正でＦ２を多用するため、
たまにＦ１を押してしまいます。
ヘルプが表示されるまで時間がかかるのでとてもいらいらします。

友人に頼まれたのですが私もわからなかったので教えてください。
ある実験装置のデータが、テキストファイルにでも変換してくれればいいのに、不親切なことに印刷でしか出力できないのです。
このデータは表形式になっており、その後さらに詳しい解析を加えたいのはその表の中の一項目のみです。
具体的には、パラメータが8種類あり、その中の左から3番目のパラメータの値のみが必要です。
各パラメータには各実験あたり4つの値があり、下のようになっています。

＜実験１＞　　　　　　　　　　　　 ★
パラメータ１　パラメータ２　パラメータ３　パラメータ４　パラメータ５　パラメータ６　パラメータ７　パラメータ８
　　値１　　　　　　値１　　　　　　値１　　　　　　値１　　　　　　値１　　　　　　値１　　　　　　値１　　　　　　値１
　　値２　　　　　　値２　　　　　　値２　　　　　　値２　　　　　　値２　　　　　　値２　　　　　　値２　　　　　　値２
　　値３　　　　　　値３　　　　　　値３　　　　　　値３　　　　　　値３　　　　　　値３　　　　　　値３　　　　　　値３
　　値４　　　　　　値４　　　　　　値４　　　　　　値４　　　　　　値４　　　　　　値４　　　　　　値４　　　　　　値４

＜実験２＞
パラメータ１　パラメータ２　パラメータ３　パラメータ４　パラメータ５　パラメータ６　パラメータ７　パラメータ８
　　値１　　　　　　値１　　　　　　値１　　　　　　値１　　　　　　値１　　　　　　値１　　　　　　値１　　　　　　値１
　：

こんな感じです。
この実験装置、Macで動いているので、エプソンのプリンタドライバを使えば印刷結果をPICTファイルには変換できそうです。
ExcelでPICTファイルを読み込んで、その中の上記の表のうち、パラメータ３の値のみを読みとる方法はありませんか？
もしくはOCRソフトなどを使えばできますか？
現在は数千個もある値を手入力している状態で、友人はほとほと疲れ果てています。
ご助言お願いします。

PICTって画像の形式か？excelで直接やるもんじゃないような…

おまえら疲れねエ？

>>252
マックの形式だよ　確か

マックの方で、なんとかならないの？
マックでは、画面には出るの？

>>252
Macの標準の画像形式です。Vectorベースなので、文字は文字として認識できます。
>>253
どうもすみません。。
>>254
画面には出てます。画面取りもできます。
ただ、画面に出ている文字は選択できないのです。。

ここまで書いてきて、>>252さんのおっしゃるとおり、Excelで直接やるような作業じゃない気がしてきました。
何かいい方法（もしくはいいスレ）ありませんか？

>>255
マックに詳しいオタを
その装置のとこに連れて行く

>>251
＞ある実験装置のデータが、テキストファイルにでも変換してくれればいいのに、
＞不親切なことに印刷でしか出力できないのです。

ビデオ出力以外に、シリアルポートとかGPIBとか付いてないの?

どんな端子が付いていようと、ソフトが出力に対応していなければ
意味が無いだろう。

>>248
おぉ！情報サンクス！！

なんとかなりそうだね。

>>257
プリントできるんだから、テキストだって取得は可能だろう。
でも、すれ違いは確かだ・・・・・が、
出力先を、ファイルにして、エディタで開くといい事がある予感・・・・・
ぜんぜんエクセル関係ないな・・・・・

Ａ１の数字が5以上なら１０、4以下なら１としたい場合どうすればいいのですか？

>>261
IF(A1>=5,10IF(A1<=4,1,"")

一、自分の頭で考える。
一、判らない事があったらまずHELP、の習慣をつける。
一、HELPを呼んで理解できないなら、自分のレベルに合った本を購入し手元に置く。
おまけ、google上手になる。
以上、早く使えるようになりたかったら…

>>262
IF(A1>=5,10,IF(A1<=4,1,""))
ｺﾞﾒﾝ数式訂正。ｲｯﾃｸﾙ。

皆さん本当にお詳しいですね。お教え願いたいのですが、セルの行列と高さの数値って
何を基準にしたものなんですか? それはミリ単位に変更できないんですか。
表を作成しても印刷するまで実際のイメージがつかめないので面倒です。何か良い
方法無いでしょうか。よろしくお願いします。

>>262
すいません
ありがとうございました

単位は「ポイント」
列幅8.38ﾎﾟｲﾝﾄ は標準フォント（MSPｺﾞｼｯｸ　11ポイント）で表示できる文字数。
つまりは半角で8文字と余裕少々、という事らしい。
行高13.5ﾎﾟｲﾝﾄ は、13.5ﾎﾟｲﾝﾄの文字がジャストフィットする。
普通は余裕も欲しいんで、11ポイントにｲｲ感じの高さ、つことらしい。
印刷した時はプリンタやドライバ等の環境に依存するので、
正確に何mmという事は言えないらしいが、およそ1ﾎﾟｲﾝﾄ=0.35mm。

>何か良い方法無いでしょうか。
mm単位で指定できる様にするソフトがあります。
結構種類があるようですが、私はどれも使った事のないので具体的お薦めはできません。
探して見るか、他の方の推薦を待ってください。

>>265
なんか嫌味な書き方になって、こちらこそすみません。
とりあえず、上達したかったらＩＦの検索からという事で…
265さんなら、文もしっかりしてる＆素直なのですぐ上達できると思います。

と一段落したところ悪いんだけど、>>263の数式もかなり怪しい気が……
IF(A1>4,10,1)だけで十分かと。


つか深読みし過ぎてコードにしちまった。別にここまでは要求してなかった
のだね。

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
a = Target.Address
If a = "$A$1" Then
　　v = Target.Value
　　If v > 4 Then v = 10 Else v = 1
End If
Target.Value = v
Application.EnableEvents = True
End Sub

A1が空白の時は、5以上でも4以下でもないと解釈して空白を返す様にしました。
IF関数を拾得していない人にVBAは、理解の階段を踏み違えるだけだと思ってます。
（一般機能では無理あるいは却って困難なら初心者にVBAもありだと思いますが）

261には書いてなかったけど、「A1の数字が…」という辺りから、
別セルに表示させたいのだと解釈してました。
261さん、A1ｾﾙに表示させたいなら、＞268が回答になりますよ〜。

連続ｶｷｺに初めて引っ掛ってしまった…(´Д⊂ もういいかな?

>>270
じゃああともう一つだけ（別に責めてるわけでは無いが）。

(" ">=5)はTrueだ。そして(Null値<=4)もTrueだ。それで察してくれ。

すいません
>>230
で聞いたのですが。追加で質問です

計算で出した数値が
０＝「Ａ」
１〜１０は「Ｂ」
１１〜２０は「Ｃ」
２１〜３０は「Ｄ」
それ以上は「Ｅ」

と判定するのを御教示願いたいです

やばい、自分のコードも間違ってた。あれではA1以外全部消えてしまう。

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
a = Target.Address
If a = "$A$1" Then
　　v = Target.Value
　　If v > 4 Then v = 10 Else v = 1
　　Target.Value = v
End If
Application.EnableEvents = True
End Sub

ついでなんでA1からA10にかけて同じ処理をしたい場合の例も書いておく。

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
r = Target.Row
c = Target.Column
If (c = 1) And (r <= 10) Then
v = Target.Value
If v > 4 Then v = 10 Else v = 1
Target.Value = v
End If
Application.EnableEvents = True
End Sub

>>272
それは>>231の回答を参考に、自分で解決するのが231に対する礼儀かと。

>>232はねらいすぎなので無視して良し。

>>272
少しはHelpを見て考える。ここのスレも。

IF(論理式, 真の場合, 偽の場合)

０の時はA、の算式は

IF（A1＝０，”A”，”A以外”）

こうだ、
０じゃ無い時はA以外になる。

自分で工夫して、その計算式をさらしてみ。

えぇ、みなさんの仰るとおりです
自分でも

=IF(AND(A1=0),"A",IF(A1<11,"B",IF(A1<21,"C","D")))

まではではすぐできましたが、
さらにもう一個追加が丸１日考えてもうまくいきません

>>276
=IF(A1=0,"A",IF(A1<11,"B",IF(A1<21,"C","D")))

初めのANDは無しでOKです

Dのでる条件は、A1が３１より小さい時で、
それ以外はEになりますよね
IF(A1<31,"D","E")
計算式はこうです

これを、上の計算式の　”D”　の部分に当てはめてみて・・

>>277
上のとは
=IF(A1=0,"A",IF(A1<11,"B",IF(A1<21,"C","D")))
のことです

>>277
ありがとうございました。
これからもっとべんきょうします

>>279
できたの？

できましたよ

OS=WinMe Excel=2000

テキストからコピーして貼り付けた、単位つきの数字に３桁づつカンマを付けたいのですが、
そのやり方が分かりません。

987654321 cm → 987,654,321 cm
876543219 cm → 876,543,219 cm
765432198 cm → 765,432,198 cm
↑
この様にしたいのです。数字だけを普通に入力したり、コピーした数字を貼り付けたものでは、
ちゃんと出来たんです。
よろしくお願いします。

>>282
セルに入れるのは、
数値だけにする
98765432
だけ

で、右クリック＞セルの書式設定＞表示形式のタブの中のしたの方に
ユーザー定義があるから
そこをクリックして、種類のところに

###,###,###,###"cm"

って入れる
すると
98，765，432ｃｍって　勝手に付くから

>>282
#,##0"cm"

>>283さん >>284さん レスありがとうございます。

試したのですけれど、入力した無数の数字の列に”単位とカンマ”を付けたいのではなくて、
単位付きの無数の数字の列に”カンマを付けたい”のです。

１つの列に１０００個位の単位付きの数字がコピー・貼り付けしたものでして、
単位を除外して数字のみを貼り付けすることが出来ない場合です。

分かりにくい説明ですみません。

>>282
表(シート)の設計というか構造に問題がある。
つくりなおしたほうが身のため

>>285
単位を取ってから処理したら？
それが嫌だったらVBA使うしかないね。

>>285
=TEXT(LEFT(A1,FIND("c",A1)-1),"#,##0")&"cm"

つーかインポートし直せばいいじゃん。


貼り付けじゃなくてさ。

>>286さん>>287さん
残念ですが、分かりました。
ありがとうございました。

>>285
カンマを入れるより
ｃｍを削除して、上の方法で　カンマとｃｍを入れる方が
実用的です

ｃｍを削除する方法を考えます
ちょとまって

282さん！

>>288さんが、コンマ入れる関数作ってくれましたよ！

>>291
方法も何も・・・
一番簡単な方法は、置換でしょ？

>>282
Sub test()
　 Dim i As Long, n As Long
　 n = Cells(Rows.Count, 1).End(xlUp).Row
　 For i = 1 To n
　　 With WorksheetFunction
　　　 Cells(i, 1) = .Text(Left(Cells(i, 1), .Find("c", Cells(i, 1)) - 1), "#,##0") & "cm"
　　 End With
　 Next i
End Sub

皆さん、ありがとうございます。

>>288さんの
=TEXT(LEFT(A1,FIND("c",A1)-1),"#,##0")&"cm" を
セル書式設定の表示形式のユーザー定義の種類のところに入力したら、
「入力した表示形式が正しくありません」と出てしまいました。

>>294さんのが何なのか分からないです。
すみません・・・

>>293
あ！　それもそうだ・・

ちなみに
=VALUE(LEFT(A1,LEN(A1)-2))
これで、cm（最後の２文字）とれますから


置換について

メニュー
編集
検索
で

置換
検索する文字　ｃｍ
置換後　（空白のまま）

で、ｃｍが一気に取れます

一番簡単・・・

>>294
VBA関数ではなく、あえてワークシート関数？

>>295
書式設定のところではなく、セルに入力する
>>282は関数すら使ったこと無いのか？

>>296さん
置換えで『cm』を取って、ユーザー定義で『###,###,###" cm"』にしたら、
見事１００以上の数字が一瞬で変わりました！！！うれしいです！！

>>294さん なんか高度な事を考えて下さった様で、申し訳ないです。
理解できない自分が・・・

>>298さん その通りッス、精進するッス

低レベルな質問なのに付き合って頂いて、
本当に皆さん、ありがとうございました。
すごい頼りがいがある人達だ。

>>299
『###,###,##0" cm"』
１桁目を０の方が、ベターです（０のとき、０と出る）

うまくいってよかったですね
エクセル使うなら、そのデータの平均をだすとか、
最大値を調べるとかいろいろできるので、
扱うデータは、数値の方がよいのです。

ワープロ的に使うなら、どちらでも構いませんが。

教えてください！
1つのセルの中で、折り返した2行目以降だけに
インデントを設定する事は可能でしょうか？

1.色々調べたんですが、わから
　ないんです。

みたいに。任意の折り返しではなくて、セルの幅を変えても
その行だけインデントが入るようにしたいんです。
もしくは、セルのグループ化。
WINでエクセル2000を使ってます。

どなたかご存じでしたらお願いします。

>>301
とりあえず

1.色々調べたんですが、わから（ここでAlt＋Enter）
（ここでスペース）ないんです。

これじゃ、だめ？

>>301
セルのグループ化？

結合なら

複数のセルを選択
右クリック
セルの書式設定
配置
セルを結合するにチェック

>>302さんレス有難うございます。
でも、こっちで決めた位置で改行するのではなくで、セルの中にそうゆう
設定をしたいと思ってるんですが、出来上がってる文章をコピ＆ペしたら
そうゆう形になるような…

エクセルでは難しいですかね？ワードに持ってった方が早いのかなあ…

http://www2.leverage.jp/start/

>>304
しばらく待ったら、また、他の人がいい案あるかもしれないから
また、来たら

ちなみに、
出来上がってる文章ってのは、

1.あああああ（ここで改行キー）
いいいいい

なの？

で、自動的に

1.あああああ
　いいいいい

にしたいと？

こんな時間なのにみなさん有難うございます。301です。
>>304さん
わかりずらい質問文で申し訳ないです。
例えば、図形みたいに離れた所にあるセル同士でも
グループに出来るような方法を探しているんです どうですかね？

>>304さん
元の文章はエクセルで
1.あああああいいいいいい（改行）
2.うううううええええええ
で

1.ああああ
　あいいいい
2.ううううう
　ええええ

のようにしたいと思ってるんです

>>307
下の意味はOKです

あなたのいうグループ化・・
グループ化したら、そのあと、どうしたいのですか？
どういうことを実現したいんですか？
そこが知りたい。

>>308さん
ご親切に本当に有難うございます。うまく説明できるかわかりませんが…。

まず私が作りたい形は>>301で説明した通りです。できれば、1つのセル内で
文字の横位置の設定を行ごとに変える。でそれが出来ないなら、

1.あああああ
　いいいいい

とゆう形を「1.」と「あああああ（改行）いいいい」の2つのセルに分けて
作りそれをグループ化したいんです。ですから、本当は隣接したセル同士
なんですが、で、そうゆう設定をした所に元文章をコピペして、
そのセル（をグループ化したもの）を簡単に移動したい。
と、思っています。

カメラの機能もあるにはあるんですが、それ以外にあればな と思って。

　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）

>>274
>>232を狙いすぎと言っていが、こういう考え方も
大事だと思われる

>>311
おれは、むしろ>>232の方がかっこいいと思うんだが・・・

http://www2.leverage.jp/start/

>>309
VBAでも使って実現できないことではないと思うが、
本来、表計算ソフトは計算に重きをおいているので
表の装飾という点では、限界あるます。

質問を見た限りでは、ワードでやるのが素直な判断といえる。

ただ、こんなことは出来る

A1にデータ「○○○○○○○○○○○○○○○○○○」　セルのインデントなし
A2以降　データ空白　セルインデント1
　　　　↓
A1:A5を選択して　編集→フィル→文字の割付
　　　　↓
結果
A1:○○○○
A2:　 ○○○
A3:　 ○○○
A4:　 ○○○
A5:　 ○○

という風になるけど、見栄えはよくないよ。インデントの設定も大雑把なもんだし・・・・
やはり、Word推奨

平均値だけを入力して、参照値が自動で出るようにしたいのですが…。
平均値というのは、２点間の距離を測定してきたもので、
動かすことのできない数値なんです。
本来は４回距離を測った平均値を使うものなのですが、
現場の状況から一回しか計れないので、計ったようにデータを作る必要があります。

ちなみに、４つのデータの較差は0.000〜0.003の間でおさめたいです。
RANDBETWEENを使うと、ブック開くたびに再計算されちゃうんですよね？
その再計算を止める方法か、
平均値から近似値を４つ出す方法とか、
なにかいい案がありましたら、力をかしてください。

再計算はオプションで止められるだろ

ロシアの宇宙開発から生まれた究極の若返り！ダイエット！
"ロシアンポリペプチト" http://www.familymartusa.com

オプションのはシート全体に再計算のロックがかかりますよね？
訂正箇所だけ再計算てできるんですか？
ちなみに、Excelのバージョンが、入力する人によってばらばらで…。
数式を組むわたしは2000で、97で入力する人もいる。
これは社内環境の見直しか…。

エクセル2002のVBAです。
下記のデータクリアは今別々に行われているのですが、
セル範囲を一度に選択してまとめてデータクリアするには
どのように書き直したらよいのでしょうか？


r = ActiveCell.Row
Range("J9:J" & r).ClearContents
Range("K9:K" & r).ClearContents
Range("M9:M" & r).ClearContents
Range("N9:N" & r).ClearContents
Range("O9:O" & r).ClearContents
Range("R9:R" & r).ClearContents
Range("S9:S" & r).ClearContents

>>315
一回結果出したら値複写しておけ

それにしても不毛な作業だな・・・・・
データ改ざんとか当たり前と思わないほうがいいぞ（ｗ

>>319
r = ActiveCell.Row
Union(Range("J9:K" & r), Range("M9:O" & r), Range("R9:S" & r)).ClearContents

自分で考えてみて、このようにまとめることができました。
この三つの範囲をまとめて選択していっぺんに
データクリアすることは出来るのでしょうか？

　　　　r = ActiveCell.Row
Range("J9:k" & r).ClearContents
Range("M9:O" & r).ClearContents
Range("R9:S" & r).ClearContents


セル範囲が決まっている場合は
Range("J9:k12,M9:O12,R9:S12").ClearContents
のように出来ると思うんですけど、
rをどのように扱ったらいいのかわからないです。
よろしくお願いします。

>>321
おおっ、一足違いで回答が！
ありがとうございます。早速試してみます。

>>321
試してみたら出来ました。ありがとうございました。

下記の集計VBAもひとつにまとめることが出来るでしょうか？
どなたかお教え下さい。

Range("A9").Select
Selection.Subtotal GroupBy:=5, Function:=xlSum, TotalList:=Array(6), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=8, Function:=xlSum, TotalList:=Array(9), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=12, Function:=xlSum, TotalList:=Array(13), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=16, Function:=xlSum, TotalList:=Array(19), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=17, Function:=xlSum, TotalList:=Array(19), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True

>>324
Range("A9").Select
With Selection
　.Subtotal GroupBy:=5, Function:=xlSum, TotalList:=Array(6)
　.Subtotal GroupBy:=8, Function:=xlSum, TotalList:=Array(9)
　.Subtotal GroupBy:=12, Function:=xlSum, TotalList:=Array(13)
　.Subtotal GroupBy:=16, Function:=xlSum, TotalList:=Array(19)
　.Subtotal GroupBy:=17, Function:=xlSum, TotalList:=Array(19)
End With

２６６さんへ。
返事が遅れすみません。本当にありがとうございました。

　　　　　 へﾍ
　　　　 /〃⌒⌒ヽ
　　 　 〈〈 ノﾉﾉﾊ)）) ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 　 　 |ヽ|| ´∀｀||＜　先生！こんなのがありました！
　 　 ＿φ╂∨⊂)__ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　 ／旦／三／ ／|
　|￣￣￣￣￣|　 |＜ http://www.freeweb2.kakiko.com/tama/
　|＿＿＿＿＿|／

★あなたのお悩み解決致します！！
●浮気素行調査
彼氏、彼女、妻、夫の浮気を調査致します！！
●別れさせ工作
あらゆる手段を使ってターゲットを別れさせます！！
●盗聴器盗撮機発見
あなたの部屋に誰かが仕掛けているかも！！
●行方調査
行方不明になっている家族の消息を調査致します！！
●電話番号から住所割り出し
一般電話、携帯から住所を割り出し致します！！
その他人生相談からどんなお悩みでも解決いたします！！
　直通　　０９０−８５０５−３０８６
ＵＲＬ　　http://www.h5.dion.ne.jp/~grobal/
メール　　[email protected]
　　　■グローバル探偵事務所　

エクセル2000です。
同じ形式で一つに5枚シートがあり、全てのブックのの1シート目は一シート目で纏めたいのですが、出来ますでしょうか？
50ブックくらいあり、気が遠くなりそうで…。

（　´∀｀）/＜ 先生！！こんなのを見つけました。
http://www.freeweb2.kakiko.com/tama/moe/hankaku07.html
http://freeweb2.kakiko.com/tama/moe/hankaku08.html
http://www.freeweb2.kakiko.com/tama/moe/hankaku10.html
http://freeweb2.kakiko.com/tama/moe/hankaku09.html
http://www.freeweb2.kakiko.com/tama/moe/hankaku06.html
http://freeweb2.kakiko.com/tama/moe/hankaku05.html
http://www.freeweb2.kakiko.com/tama/moe/hankaku01.html
http://freeweb2.kakiko.com/tama/moe/hankaku02.html
http://www.freeweb2.kakiko.com/tama/moe/hankaku03.html
http://freeweb2.kakiko.com/tama/moe/hankaku04.html

>>329
VBA使えばまとめることは出来ます。

A1にファイル名を入力すると、
A2以降に、そのファイル名のファイルの内容を
リンク貼り付け表示にするためには、
A1、A2（以降）にどのような数式を書けば良いのでしょう?

>>332
ファイルの内容とは何だ？はっきり書いてくれ

複数ブックを１つのブックにまとめる
方法を教えて！！！

>>334
手作業でやれないの？

OfficeXPのエクセルで
新規作成ってやったときに、
右に、ウザイリストが出て来ないで、
パッと新規ブックが出来るように設定するには、
どうすれば良いのですか?

>>336
メニューボタンでも、ウイザドでますか？

メニューで出なくしたい。

>>334

前も質問してた香具師か？
自分で調べる気がないなら、せめて、もうチョット具体的な状況を書いた方がいいぞ。

ファイル名、シート名の名付けのルールはあるのか？
各ワークシートにシートをまたいだ式を入力していないか？
範囲名を定義していないか？

こんぐらい書いとけば誰か暇つぶしに助けてくれるかも知れん。

>>338
ツール→ユーザー設定でカスタマイズしる

>>314さん有難うございます。
そんな事できるんですか。おしいなあエクセル！
やっぱりワードですかね そうします。

ワープロ代わりにExcel使うなハゲ！ってスレタイを見るたびに
鬱だったんです。

エクセルの置換で、
置換リストを使って置換できませんか?

置換リストの例

お山→お魚
シクラメン→お花
スイート→甘い

のように、複数条件のリストで、一発変換出来ないかなあ?

>>336
ツール→オプション→表示タブ　
[操作開始]作業ウィンドウのチェックをはずすでＯＫ！

と思ったが、質問をよく読んでみるとエクセル起動時じゃなくて
メニューバー→新規作成　で表示させたくないのか。
読み間違えた。スマソ。

謝ってばかりでも仕方ないので代替案を持ってきた。

ツール→ユーザー設定→「コマンド」タブのファイルの一覧に
「新規作成...」と「新規作成」の二つがある。
前者がリスト出てくる奴、後者がいきなりブック開く奴。
で、後者をファイルメニューバーにあるのと入れ替えれば今度こそＯＫ！

>>342
VBAを使えば屁でもない

>>325
なるほど、Withステートメントでまとめればよかったのですね。
参考になりました。ありがとうございました。

エクセルのセルには罫線を引いてなくても
薄くセルの枠が表示されてますよね

これを画面上消すことは出来ますか？

出来るけど何の意味があるの？

>>348
ツール→オプション→表示→枠線のチェックをオフ

エクセルの画面で、
オートシェイプで、図（絵）を書いたんだけど

画面プリントスクリーンで取り込んで
HPの画像にします。

セルの枠を消したいのです
印刷ではないんです

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

ワープロ代わりにExcel使うなハゲとはよく言うが、画像加工ツール
として使う奴は珍しいな。

　８人の社員がいる係の、一ヶ月の残業報告（日ごと）を作ろうと思います。

A B C D E F G H
1(月) 1 2 1 3 1
2(火) 1 1 2
3(水) 1
4(木) 2 1
:
:
31(水)

上記のように、ある表に残業時間を打ち込んだときに、以下のように
日ごとの集計票を作成したいのです。

1日（月）
A 1時間
C 2時間
E 1時間
F 3時間
　以上
-----------
:
:
:
31日分まで

疑問1：残業していない者は表示しないで、列をつめて表示するやり方が
よくわからないのです。
疑問2：一ヶ月31日分を印字させるのにはどうすればいいでしょう？
VBAを使って31日分ループ（？）させる方法がよいのでしょうか？
マクロはほとんど使ったことがないので、この際勉強しようかと思います。
どなたか、手助けいただけないでしょうか？

>>354
Access使ったら？

どーでもいいが

１日（月）
　A　　　　B　　　C　　　　D　　　E　　　　　F　　　　G　　　　H　
１時間　　　　　2時間　　　　　1時間　　3時間
ーーーーーーーーーーーーーーーーーーーーーーーーー

2日（火）
　A　　　　B　　　C　　　　D　　　E　　　　　F　　　　G　　　　H　
2時間　1時間　　　　　1時間　　　　　　　　　　　2時間
ーーーーーーーーーーーーーーーーーーーーーーーーー

みたいに横長（紙の節約になる）
で、残業なしは空欄じゃ、だめか？
たった８人でしょ
簡単な方が、わざわざVBA使わなくても関数だけでできる・・

これだったら、３１日分の欄を作っておいて、
それぞれの欄に　＝A1　とか、＝B2とか入れていけば出来そうだが・・

シート１を入力用
シート２>>356　を印刷用にしてもいいし

>>357
それだったら、初めから>>356に入力しりゃいい

即レスありがとうございます。
そうですか、やはりつめて空欄にするのは難しいですね。
頭の固い上司がいるもので・・・。報告書の形式にこだわっているんです。

とりあえず、間に合わなかった場合は手入力で作成しようと思います。
よろしければ、引き続きご教授いただけたらありがたいです。

http://www.k-514.com/

VBAでエクセルファイルのカレントディレクトリーを取得する
コード教えてください。
お願いします。

>>361
それぐらいヘルプ見ろ

myPath = ActiveWorkbook.Path

>>361
Sub test()
　　Dim MyPath As String
　　MyPath = ActiveWorkbook.Path
　　MsgBox "このBookのパスは " & MyPath & " です", vbOKOnly
End Sub

>>363-364
ありがとうございます。目的の動作が実現しました。

　OS:Y2K Excel2000
　教えてください。
　Ａのセルを結合し、Ａが存在する列に対して、
"Ａ"でフィルタフィルタすると１００のみが表示されます。
どうにかして、１００と２００の２行を表示したいのですが、
方法はありますか？
（セル結合しないで見えないＡを作るという方法以外で）

┌─┬───┐
│Ａ│１００│
│　├───┤
│　│２００│
├─┼───┤
│Ｂ│３００│


ｶﾞｲｼｭﾂ?

>>366
なんだよ、Y2Kって
なれねえ言葉使おうとするからだよ、
Win2Kだろ？

>>366　
セル結合して見えないＡを作る

>>354
＞やはりつめて空欄にするのは難しいですね

釣られてやったぞ。受け取れ。


Sub HogeHoge()
Dim i As Integer
Dim j As Integer
Dim k As Integer
k = 1
For i = 2 To 32
Sheet2.Cells(k, 1) = Sheet1.Cells(i, 1)
k = k + 1
For j = 2 To 9
If Sheet1.Cells(i, j) > 0 Then
Sheet2.Cells(k, 1) = Sheet1.Cells(1, j)
Sheet2.Cells(k, 2) = Sheet1.Cells(i, j) & "時間"
k = k + 1
End If
Next j
Sheet2.Cells(k, 1) = " 以上"
Sheet2.Cells(k + 1, 1) = "-----------"
k = k + 2
Next i
End Sub

>>366
なんだよ、フィルタフィルタって
なれねえ言葉使おうとするからだよ、
オートフィルタだろ？

>>366はかなりﾊｲﾚﾍﾞﾙな質問だと思うYO!!
Y2K=2000年問題を抱えたOSでのExcelでの
操作方法なのだから･･･
ｱﾌﾟﾘｹｰｼｮﾝでの操作が完璧でも
OSがどんな挙動を示すかわからない(w

http://homepage.mac.com/hitomi18/

A1に「2ch」という単語が含まれていればTRUE、
含まれていなければFALSEを返すには、どうすればいいでしょうか？

=(FIND("2ch",A1,1)>0)
または
=IF(FIND("2ch",A1,1)>0, TRUE, FALSE)

FINDとISERRの組み合わせで解決しました。

>>374
THX！ ヒントになりますた。

Windows98SE、Excel2000を使っています。
ExcelのVBAで、セルA1に1データごとに改行した形で
データを表示しようとして、↓のように書いたところ、

Cells(1, 1).Value = "a" & vbCrLf & "b" & vbCrLf & "c"

↓のように改行部分に「・」が出てしまいます。

　a・
　b・
　c

「・」を出さない方法はありますでしょうか？
よろしくお願い致します。

ExcelのVBAで、VBA実行中に画面表示を更新しないための構文、
いわゆるACCESSの 『Application.Echo False』 にあたるものって
ありますか？

>>376
セルの書式設定→配置→折り返して全体を表示する

>>377
Application.ScreenUpdating = False がApplication.Echo False

>>378
ありがとうございます。
「折り返して〜」ですが、チェックは入っております。

>>377
Application.ScreenUpDating = False？

>>376
こちらの環境では出ない。
OSはXP　Excel2000

Alt＋Enterの改行はどうなるのかな？
vbCrLfの代わりにChr(10)にしてみるとか・・・・・・

>>379
重複すいません。

>>382
Alt+Enterの手動改行では「・」は出ません。
Chr(10)は知りませんでした。今やってみます。

ああそっか
vbLfだけでよかったんだ

>>382
Chr(10)で「・」が出なくなりました。
どうもありがとうございました。

ちなみに、フォームのラベルなどでvbCrLfを使うと「・」は出ません。
なんでシート上だとダメなんでしょうか・・・？

>>379　>>381
すばやいレス、ありがとうございます。
ExcelのVBAは慣れてなくて……とても助かりました。

>>385
連続カキコすみません。
「vbLf」にしても「・」は出ませんでした。
ありがとうございます。

>>379
よこからTHX
俺も知りたかったので・・・・

>>389
vbCrLfだとChr(13) & Chr(10)になるみたいだね。
なぜかといわれても、俺の環境ではvbCrLfでシート上でも問題ないので
答えようがないが、VBAの参照設定でも違うのかな？

>>389
すみません。ちょっと他所行ってました。

>vbCrLfだとChr(13) & Chr(10)になるみたいだね。
そういうことですか・・・。
なんか原因がよく分からないままではありますが、
とりあえず今後は「Chr(10)」か「vbLf」を使うことにします。
ありがとうございました。

え〜バージョンは最新の1つ前でつ。
1〜300の行にびっしり文章がつまっているとします。
しかし私は空欄を作りたいわけです。
1の下（つまり2）のところに空欄・・・と1つおきに空欄を作成したいのですが、行の挿入で300回繰り返すのは困難です。
なにか簡単なよいほうほうはありませんか？あったら是非お願いします。

>>391
つか、行の高さを現在の倍して、配置を中央にすればいいだけの話では？

>>392ど、どうやって？

ま、こういう方法もないわけじゃないけど。
Sub manco()
For i = 300 To 2 Step -1
Rows(i).Insert Shift:=xlDown
Next i
End Sub

>>394どこに入力？

＞391
1）、 ↓　ここで、右クッリク。（行ラベルと列ラベルの交叉するとこ）
　　　＿｜Ａ｜Ｂ｜Ｃ｜・・・・
　　　 １｜
2）、メニューから「書式｣-「行｣-「高さ｣　で　好きなｻｲｽﾞを入力。
　　（初期値の倍なら、13.5x2=「27」）

>391
VBA開いて、THIS WORKBOOKに394をコピーして
マクロからmancoを実行。

グラフ作成についてですが

X軸を二軸にしたいのですがやり方がいまいち分かりません・・・・
Y軸は出来るんだけど(;^_^A


Excel2000、WinXPです
よろしくお願いいたします<(_ _)>

すみません、教えて下さい。
office xpにて数字が入った連続する複数のセルを塗りつぶした場合
次のセルに数字を入れると勝手に塗りつぶされてしまいます。
解除する方法を教えて下さい。
よろしくお願いします。

>>389-390

たぶん、二人の言いたいことは微妙にずれてる　(･∀･)(･∀･)(･∀･)(･∀･)ﾆﾔﾆﾔ

>>400
どういうことでしょうか？
すっかり一件落着したもんだと思ってたもので・・・（汗

重ね重ねすいませんが、、

>>249
>>250

の質問もご存知の方よろしくお願いします。

>>250
Private Sub Workbook_Open()
　Application.OnKey "{F1}", ""
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
　Application.OnKey "{F1}"
End Sub

このスレの趣旨と微妙にズレてしまうかも知れませんが
困ったことがありますので質問させてください。

業務で、あるExcelファイルを複数人で参照／更新しています。
参照だけすることも多い為、保存オプションで「読み取り専用を推奨する（R)」
のチェックをオンにしており、ファイルを開く際に「”ファイル名”を変更し、
保存する必要がなければ、読み取り専用で開いてください。読み取り専用で
開きますか？」のダイアログボックスが出るようにしています。
これでファイルを参照したいだけの人には「はい」を選らんでもらって、
更新する必要のある人だけ「いいえ」を選べばいいことにしています。

続き
私の端末は職場の多数派でOSはWinNT4.0、Office98です。
いままではこれで不都合がなかったのですが、
ある協力会社の人が持ち込んだノートPC（Windows2000＆Offece2000）でまず
このExcelファイルを開いた後、私の端末で同じファイルを開くと
先の「読み取り専用で云々」のダイアログボックスが出ないのです。
逆に、私の端末で先にファイルを開いていて、あとから持ち込みPCで同じファイルを
開くとこちらは正常にダイアログボックスが出ます。

困ったことは、
持ち込みPC側が先に更新モードでファイルを開いている時、私がそのファイルを後から開く
と「読み取り専用で云々」で「いいえ」を選択したにも関わらず、
「誰々が使用中です」みたいなことを何も言われないでファイルが開くため、
まさか参照モードだとは気づかずにいろいろ更新をかけたつもりの作業がパーになってしまうことです。
閉じる時も正常に更新した時と違いがなく、次に開けた時に初めて気づくという
根性の悪さです。

おかげで現在ではそのファイルを持ち込みＰＣで誰か更新モードで開いてないか、
いちいち聞いて回ってからでないと怖くて仕方が無いという、ＩＴ産業にあるまじき阿呆な
事態となっています。

業務以前の問題であり、そんなへぼいマシンを持ち込む会社＆度重なる
私のクレーム（何とかしてくれ！）にも対処しない態度に呆れています。
支障はそれだけでなく、一日平均１回程度、持ち込みPCでファイルが閉じられなくなる
現象が起き、「名前を変えて保存」で取り合えず更新内容を保っているような状態です。
それはそうとして、
どうしてこういうことが起こるのでしょうか？Excelのバージョン違いに
原因があるのでしょうか？

どなたか教えてくださいませ。
長文失礼しました。

Offece・・・×
Office・・・○
でした。

>>403さん

ありがとうございました！

上の関数を以下の手順で実現できました。
（利用方法間違えていたらすいません。）

１．"Private "を削除して保存。
２．ユーザ設定で"ニコニコマーク（マクロ）"をツールバーに設置。
３．このアイコンに関数を登録。
（ショートカットキーにも割り当て。）

新しいブックや、既存ファイルを開くたびにニコニコマーク押下。
これでＦ１押下してもヘルプが出なくなりました。

１．のようにPrivate関数を解除しないとマクロ一覧に表示されなかったので、
消しました。

ちなみに、ファイルオープン時に自動的に上記マクロを実行する方法は
ないですかね。
いや、このままでも十分ありがたいのですが。

>>404

回答じゃないけど、
多数派とか少数派とかの問題じゃなくて、
業務ならバージョンを合わせるのは必須。

そもそもExcelファイルを複数から同時アクセスさせるという
運用法自体に問題があると思う。

>>407
> ちなみに、ファイルオープン時に自動的に上記マクロを実行する方法は
> ないですかね。

ファイルオープン時に自動実行するマクロだったんだけど。
全てのブックで常にっていう意味かな？
だったら個人用マクロブックに保存したらいいよ。

「personal.xls」で検索してもわかんなかったらまた聞いて。

>>408
同意。

http://homepage.mac.com/hitomi18/

>>408
>回答じゃないけど、
>多数派とか少数派とかの問題じゃなくて、
>業務ならバージョンを合わせるのは必須。

レス有難うございます。まあ普通に考えてそうなのでしょうね。
開発環境のOracleやjavaVMのバージョンを合わせるのは当然として、
ちょっとした集計や文書作成に使う為のExcelでも私の書き込みの
ようなトラブルが起こりますからね。

>そもそもExcelファイルを複数から同時アクセスさせるという
>運用法自体に問題があると思う。

これは少し考えました。
408さんの言いたいことは、「所詮MSの製品に信頼度を求めてはいけない」
＝「読み取りで開きますか云々のダイアログ、なんてオマケの機能を業務に使うこと
自体がそもそも浅はか」なのか、私の書き込みのような複数人で同一ファイルを
を運用するにはもっと適当なソフトがあるのにExcel使ってはだめだよ、なのか、
Excel使ってもいいけどもっと間違わないやりかたあるでしょ、なのか・・・・

いずれにしても意見が聞けてよかったです。
408さん、410さん、ありがとう。

>>412
EXCELを使うべきではない用途に使用してると思われ。
参照とか更新というくらいだからDB？

すみません、前スレで質問した内容ですが、流されてしまったのでもう一回質問させて下さい。

ツール→オプションの"色"タブで、カラーパレットをカスタマイズしました。
これをデフォルトのカラーパレットにする方法はありますか？

ブックを新規作成するたびに、カスタマイズしたブックを呼び出して、

ツール→オプション→色→コピー元のファイル

でパレットをコピーするのが面倒で…テンプレートだとパレットの情報は保存されないし。
OSはWin Meで、バージョンはExcel2000です。

出来る、出来ないだけでもレスしていただけたら助かります。よろしくお願いいたします。

>>414
調べてみたが、デフォルトのパレット変更に関する
情報はないみたい。
そういう機能がないか、教える気がMSにないようです。

VBAで実現するなら以下、

Personal.xlsに変更したパレットを登録しておいて
ActiveWorkbook.Colors = Workbooks("PERSONAL.XLS").Colors
を実行。

ついでに>>249に亀レス

ツールバーにクリックボードツールバーを表示させておいて
×ボタンを押せば履歴は消える。
エラーが出る件は、クリップボードだ出しているので、
ここでは、やや、スレ違い。
実を言うと、俺も頭にはきているんだけど。

>415
レス、ありがとうございます。ぬう、デフォルト変更は無理だったか…。

頂いた代替案を、personal.xlsに組み込んでみました。
一発で快適環境ｷﾀ*･゜ﾟ･*:.｡..｡.:*･゜(ﾟ∀ﾟ)ﾟ･*:.｡. .｡.:*･゜ﾟ･*!!!!!

非常に助かりました。ありがとうございます！

三四郎のデータをEXCELで読み込む方法教えてくださいな。

>>417
背負い投げで一気に！

三四郎てよく知らないので・・・・・・
ファイル→開くのダイアログでその形式がなければ
三四郎？の方で互換のある形式、最低テキストに
して出力すればいいんではないかと・・・・・・

■ハイパーリンクについて■
EXCEL2000を使っています。
別ブック内の特定のシートにリンクを張りたいのですが
シートの指定の方法が判りません。
どうしたら良いのでしょうか？

ちなみに
ハイパーリンクの編集メニューからしか編集の方法を
知りませんのでそこからの方法を教えて欲しいです。
誰かお願いします。

>>419
いろいろ試したが漏れも
シートの指定はわからん

ハイパリンク先のブックの最後に開いていたシートが表示されるだけ

>>419

ファイル内の位置に「Sheet3!A1」のように指定するだけじゃないの？

>>421
別のブックらしいですよ

その、ファイルを指定する方法がわからんのだろ

すみませんが解る方お願いします。
Win98SE、Excel2000を使っています。
あるテキストファイルからEXCELにインポートしたいのですが、
解らないので教えてください。

−テキストファイルの内容−
Axxxxxx00100xxx
B00020xxxxxxxxx
Cxxxx10000xxxxx
Axxxxxx02000xxx

という内容のファイルから

|A|00100|
|B|00020|
|C|10000|
|A|02000|

というEXCELファイルを作成したい。

つまり各レコードの１バイト目が、
・Ａの時は８から１２バイト
・Ｂの時は２から６バイト
・Ｃの時は６から１０バイト
の値を抜き出したいということです。
ＶＢＡ使わないと無理ですよねえ？
それともＶＢでプログラム作ってＣＳＶに落とした方が簡単でしょうか？

>>422

リンク先のファイル/URLにリンクしたいブックのパスを絶対or相対で指定

ファイル内の位置に「Sheet3!A1」 ← リンクしたいブック内のシート名

で良いのではないかと。。

おそらく初歩的な質問だとは思うのですが、
検索しても判らなかったので質問させてください。

大量にあるデータを急いで合体させたいのですが…

ファイル1
[email protected],Aさん,25歳,
[email protected],Bさん,22歳,
[email protected],Cさん,23歳,
[email protected],Dさん,25歳,
[email protected],Eさん,22歳,
:

ファイル2
[email protected],北海道,
[email protected],東京都,
[email protected],大阪府,
:

この二つのファイルを合体させて、
[email protected],Aさん,25歳,北海道,
[email protected],Bさん,22歳,,
[email protected],Cさん,23歳,東京都,
[email protected],Dさん,25歳,大阪府,
[email protected],Eさん,22歳,,
:

というデータを素早く作るには、どうすればよいのでしょうか？
Windows2000上で、Excel2000を使っています。

>>424
=IF(LEFT(A1,1)="A","|A|"&MID(A1,8,5))&"|"

あとはネストさせて・・

A1＝A123456789abcdef0
で
|A|789ab|

こうでた

>>425
ファイル内の位置って　どこで指定する？
質問者じゃないけど

>>424

Sub aa()
Dim r As Range, st As Integer
ActiveSheet.UsedRange.Select
　For Each r In Selection
　　　r.Offset(0, 1).Value = Left(r.Text, 1)
　　　　Select Case r.Offset(0, 1)
　　　　Case "A": st = 8
　　　　Case "B": st = 2
　　　　Case "C": st = 6
　　　　End Select
　　　r.Offset(0, 2).NumberFormat = "@"
　　　r.Offset(0, 2).Value = Mid(r.Text, st, 5)
　Next r
End Sub

>>426
メアドでソート
そのあと、列を退避させて（他のしーとに）

>>215　の　偶数行を奇数行の隣に移す方法　読んだら

>>427
=IF(LEFT(A1,1)="A","|A|"&MID(A1,8,5)&"|"）
カッコなおした

ネストってのはこういうこと
=IF(LEFT(A1,1)="A","|A|"&MID(A1,8,5)&"|",IF（・・・Bの時・・,（IF（・・・Cの)

>426

VLOOKUP

ある条件に見合うセルだけを色付けする条件式の例を教えてください。

>>428

挿入−ハイパーリンク

>>433

数式が　=(A1=1)

424です。
427さん,429さん,431さん　ありがとうございました。

>>434
そのメニューで　できないよ
ブックまでは指定できるが
そのブックのシートまでは指定できん

[新規Microsoft Excel ワークシート.xls]!Sheet2!A1
こんなふうに入れても動かんです

http://yahooo.s2.x-beat.com/html/yahooobbs.html

>>430さん
>>432さん
む、ヒントを手がかりに試行錯誤してみます。
ありがとうございます。

http://homepage.mac.com/ayaya16/

>>435
数式についてはわかりました。ありがとうございます。
それで肝心の色をつけるにはどうしたらいいのでしょうか？？

>>439
ソート後は　同じ手順の繰り返しだから
手順記憶マクロもいいかも

まあ　LOOKUP系関数が王道か・・・　ただ今から勉強して・・と、急いでの兼ね合いか

>>441
メニュー
書式
条件付き書式
書式
パターン

>>442さん
どうもありがとうございます。
Excel自体が殆ど使ったこと無いので、かなり手探りですが…
頂いたヒントを元にいろいろ調べてみます。
…明日までに解決できるかな（汗

>>444
[email protected],Aさん,25歳,
[email protected],北海道
[email protected],Bさん,22歳,
[email protected],Cさん,23歳,
[email protected],東京都,
[email protected],Dさん,25歳,
[email protected],大阪府,
[email protected],Eさん,22歳,

ソートすると　メアド順になるから

>>409さん
407で記述した手順を全て消去（マクロ削除/ボタン削除）してから
教えていただいた２つの関数を、以下のような手順でやってみました。

１．Microsoft Visual Basicを起動。
２．プロジェクトビュー：VBAProject(PERSONAL.XLS)の、
　　標準モジュールフォルダ：Module1を開く。
３．開いたModule1を全て消去。
４．教えていただいた２つの関数を、単純にペースト。("Private"もそのまま。)
５．セーブしてMicrosoft Visual Basicを閉じる。
６．全てのエクセルファイルも閉じる。
７．適当にエクセルファイルを新規作成。
８．そのファイルを開く。
９．F1キー押下。

これでやはりヘルプが開いてしまいました。
当然、"PERSONAL.XLS!Workbook_Open"を手動で実行すれば、
F1キーは無効になります。

なお、今実験中の環境は、家のPCなので、
OS:Windows XP Home Edition
Office XP
で、会社のＰＣが2000です。XPだからですかね。

あと、C:\Program Files\Microsoft Office\Office10\XLStart
このフォルダに、PERSONAL.XLSファイルはできないです。
隠しファイルも表示にしてありますし、
全フォルダ検索しても出てきません。

明日会社のOffice 2000でも試してみます。

>>437

Excel2000から無くなったようだね。Excel97しか持ってないのでｽﾏｿ

調べたところ、こんな指定でよいらしい。

C:\My Documents\Book1.xls#Sheet3!A1

>>447
お
できまつた

こんな感じで
新規Microsoft Excel ワークシート.xls#Sheet3!B3:C4
これだと相対指定かな・・

でも、漏れは質問者ではないからなぁ・・

>>446
マクロを手動で起動させる時の選択メニューのとこに
マクロの保存先ってとこがある
普通は、開いている全てのブックってなってるとこ
ここで、パーソナルを選択・・・　　　　？

>>449
個人用マクロブックかも・・・　

>>449
手順を見る限り、一番肝心のPersonal.xlsを開く
という操作が実行されていないようなので、

６．全てのエクセルファイルも閉じる。を
６．エクセルをいったん終了　に変えて試してみたら？

あと、Personal.xlsはプログラムフォルダ内でなく
ドキュメントフォルダのアプリケーションデータフォルダの方に
生成されます。

XPなら普通ここ、NT系は大体似た様な所探せばあるよ
見つからないようなら、ファイルの検索汁

C:\Documents and Settings\{アカウント名}\Application Data\Microsoft\Excel\XLSTART

EXCEL2000です。宜しくお願いします。
データベース関数で

　　　　　A　　　　　　　　　B　　　　　　　　C　　　　　　
　　　【データ】　　　【検索範囲】　　　【結果】
1　　SS0000012　　SS0000017　　概にデータあり
2　　SS0000013　　SS0000025　　データ無し　　
3　　SS0000014　　SS0000026　　データ無し
4　　SS0000015　　SB0002243　　データ無し
5　　SS0000016 　 SB0003123　　データ無し
6　　SS0000017　　SS0000012　　概にデータあり
7　　SE0000003　　SE0001269　　データ無し
8　　SE0000004　　SS0000015　　既にデータあり
　

検索範囲内にデータが既にあれば、結果欄に
「既にデータあり」or「データ無し」を表示したいのですが。
宜しくお願いします。

　　　　　A　　　　　　　　　B　　　　　　　　C　　　　　　
1　　　【データ】　　　【検索範囲】　　　【結果】
2　　SS0000012　　SS0000017　　概にデータあり
3　　SS0000013　　SS0000025　　データ無し　　
4　　SS0000014　　SS0000026　　データ無し
5　　SS0000015　　SB0002243　　データ無し
6　　SS0000016 　 SB0003123　　データ無し
7　　SS0000017　　SS0000012　　概にデータあり
8　　SE0000003　　SE0001269　　データ無し
9　　SE0000004　　SS0000015　　既にデータあり

すいません。シート構成はこのようになります。

>>452
もっとスマートなやり方があるかもしれないけど、
とりあえずこれでいかがでしょうか？

=IF(COUNTIF(B:B,A2)>0,"既にデータあり","データ無し")

グラフについて質問です。

(表1)
フィールド名　値1　値2
項目1　　　　10　　3
項目2　　　　12　　4
　・　　　　　　・　　　・
　・　　　　　　・　　　・

という表から 値1 - 値2　をグラフにしたいのですが、

(表2)
フィールド名　値1　値2　値1-値2
項目1　　　　10　　3　　　7
項目2　　　　12　　4　　　8
　・　　　　　　・　　　・　　 ・
　・　　　　　　・　　　・　　 ・

というように表をいじらずに、表1から直接作りたいのですが、
表中に追加せずに、グラフの元データを関数や計算式で指定はできないのでしょうか？
現在は表2を作って、グラフを作って、グラフを画像にして表2を削除して…とやってるのですが、
グラフの数が膨大なことと、グラフを画像化するときに、なぜかエクセルが落ちまくるので
なんとかしたいのですが。EXCEL2000を使用です。
よろしくおねがいします。

>>446
マクロはThisWorkbookに。

>>455
無理。

グラフを画像化する理由もよく分からんが・・・・・・・
膨大なグラフを全て画像にすれば落ちても当然な気はする。

http://homepage.mac.com/ayaya16/

>>457
グラフだけ欲しかったりとグラフの元となる表が不要な場合があって、
グラフのままだと元の表を削除しちゃうと崩れるんで仕方なく画像にしてます。

>>459
ふーん。なんとなく見えてきた。
>>457
で式を系列のデータにするのは無理と書いたんだが、
実は、エクセルのグラフのデータ系列の指定は、セル範囲だけではなく
配列値を直接指定することも出来る。

　A列　B列
1　a　　2
2　b　　3
3　c　　3
4　d　　4
5　e　　5

でA1:B5の範囲を棒グラフにして系列の範囲を見ると
ラベルが=Sheet1!$A$1:$A$5、値が=Sheet1!$B$1:$B$5となるんだが

これをラベル：={"a","b","c","d","e"}
値：={2,3,3,4,5}とすると元のセル範囲の要らないグラフが出来る。

この知識とVBAを組み合わせてA列とB列の差から配列の中身作って
グラフに与えると、>>455の要求する動作は可能だと思う。
やってみる気があれば参考までに。

>>459
あまりの暇さに任せてサンプルコードをおまけ
遊びだが、結構使えそうなので自分用のライブラリに保存しておこう･････
Sub 非連結グラフ作成サンプル()
Dim LStr As String: Dim DStr As String: Dim i As Integer
If TypeName(Selection) = "Range" Then '選択しているのがセル範囲の場合のみ以下実行
If Selection.Columns.Count = 2 Then '2列が選択去れている場合のみ以下実行
'選択列の左の方をラベル、右をデータとして配列の文字列取得
For i = 1 To Selection.Rows.Count - 2
LStr = LStr & """" & Cells(Selection.Row, Selection.Column).Offset(i, 0) & """" & ","
DStr = DStr & Cells(Selection.Row, Selection.Column).Offset(i, 1) & ","
Next i
'配列の最終データ処理＋ '配列を括弧で囲う
LStr = LStr & """" & Cells(Selection.Row, Selection.Column).Offset(Selection.Rows.Count - 1, 0) & """"
DStr = DStr & Cells(Selection.Row, Selection.Column).Offset(Selection.Rows.Count - 1, 1)
LStr = "{" & LStr & "}"
DStr = "{" & DStr & "}"
'シート1にあらかじめ作ってあるベースのグラフをコピーし、新しいデータの隣に複製
Sheets(1).ChartObjects("BaseGraph").Copy
Cells(Selection.Row, Selection.Column + 2).Select
ActiveSheet.Paste

#461の続き

'複製したグラフのデータを取得した配列で指定(セル範囲のデータとはリンクしなくなるので注意)
ActiveChart.SeriesCollection(1).Formula = _
"=SERIES(," & LStr & "," & DStr & ",1)"
End If
End If
End Sub

一応、動作確認済み。ベースのグラフの名前は適当に変えれば大丈夫。
なんか、メニューからChartObjectsの名前変える方法が分からなかったんで
サンプルではVBAで無理やり名前変えてある。

系列が複数あるなどの場合も適宜書き換えが必要。
サンプルコードでは、エラーが発生する場面が多々想定されるが
知恵と勇気で乗り越えよう・・・・

>>459
グラフの元となる表が不要っていうけど、べつに存在してはいけないってわけじゃないんだから、
見えにくいところに作って置いとけばいいだけじゃないの？
画像にするよりはデータ量も少なくて済むだろうし。

表を書いたシートを非表示じゃだめなの？

当方、Excel2000使ってます。
例えば、他人に見られたくない列を隠す事って出来るのでしょうか？

>>465
列幅を0にしてシート保護。

>>449さん
>>450さん
>>451さん
>>456さん

お騒がせしました。
本日ようやく起動時に自動実行されるようになりました。

原因は、、、

Private Sub Workbook_Open()
このような関数がすでに存在しているとは知らず、
同一名のマクロを"Module1"として記述していたせいでした。

また、ThisWorkBookのWorkbook-Openを選択することも
知りませんでした。

どうもありがとうございました。

>>466
おぉっ〜！　出来ました！
どうもありが�d♪

424です。429さんの方法でやってみましたが、
ちと解らないんでもう１度おながいします。
例えばテキストファイルが"c:\test.txt"で、
作成するExcelファイルが"c:\test.xls"だとした場合の記述はいかに？
作成するExcelファイルの保存ができない場合は表示しているシートでも可でツ。
429のロジックに追加してもらうと助かります。
低レベルでスマソ。

>>469
もれは>>429じゃないけど

A１から縦に

Axxxxxx00100xxx
B00020xxxxxxxxx
Cxxxx10000xxxxx
Axxxxxx02000xxx

A４まで入れる

で、>>429のマクロを実行すると
B列にAとかBとか頭が出て
C列に
00100
00020
10000
02000
がでる

>>470
http://res9.7777.net/bbs/kageura/
こうでつ

>>469
エクセルのファイルから、そのtextファイル開くと
A1から縦に入るから
そんでマクロしる

もしかして、ファイル読み込みから保存まで全自動希望？

手動でも　そんな手間かからんが・・・

>>469
Opentext

SaveAs

>>470
説明不足でした。
入力するテキストファイルは実際にはバカでかくて処理がかなり遅くなるみたいなんです。
１レコード２ｋバイトくらいが１００００件とかです。それが１日に何度も。ＰＣは非力です。
ですので直接テキストファイルから結果のみエクセルに表示したいんです。

>>474
１レコド　２ｋ？

あのコードで　５件くらいで動くか試した？

>>475
すまん、多分動く
文字だった・・・

Excel VBAについて
http://pc2.2ch.net/test/read.cgi/tech/1023755967/

こういうとこもあるよ
回答者は、同じだったりするが（ｗ

メインは教えて貰ったんだから
少しは自分で考えたら・・

>>474

ん？
P3 450のWin98機で、マクロの実行時間は10000レコードで1分弱だったよ。

結局何を望んでいるのか解らんのだが、、、
VBで組めるなら組めばよろし。

よろでつ。

ワードアートとかオートシェィプを回転させたいので
ThisWorkbookに↓をきったんだけど
図形を変えたら動かなくなってしまった！

Shapesの()内の指定ってどうだっけ？


Option Explicit
Private Sub WorkBook_Open()

Dim PauseTime As Date, Start As Date
Dim i As Double

PauseTime = 0.01
For i = -90 To 0 Step 3
Start = Timer

Do While Timer < Start + PauseTime
DoEvents
Loop

ActiveSheet.Shapes(1).ThreeD.RotationX = i

Next i

End Sub

>>478
Shapes(index).ThreeD.Visible がTrueの物の回転します
図形を変えたときにこれがFalseになったかも知れないので
>>478 のマクロでForループに入る前に
ActiveSheet.Shapes(1).ThreeD.Visible=True
を入れればそのままで回るはず。

あと、他にも図がある場合は
回線させたい図形に名前を付けておいて
ActiveSheet.Shapes("名前").ThreeD.〜
ってやれば、目的のものを確実に回せますよ

>>479
ｻﾝｸｽ！
回転しまつた。

（　´∀｀）

>>454さん
できました。ばっちりです。ありがとうございました

>>474
Sub test()
Dim MyChar As String, MyRow As Long
Open "c:\test.txt" For Input As #1
MyRow = 1
Do While Not EOF(1)
MyChar = Input(1, #1)
Select Case MyChar
Case "A"
MyChar = Input(6, #1)
MyChar = Input(5, #1)
Cells(MyRow, 1) = "|A|" & MyChar & "|"
Case "B"
MyChar = Input(5, #1)
Cells(MyRow, 1) = "|B|" & MyChar & "|"
Case "C"
MyChar = Input(4, #1)
MyChar = Input(5, #1)
Cells(MyRow, 1) = "|C|" & MyChar & "|"
End Select
Do While Input(1, #1) <> Chr(13)
Loop
MyChar = Input(1, #1) ' Chr(10)用
MyRow = MyRow + 1
Loop
Close #1
End Sub

EXCEL2000ですが、
印刷する日のひと月前の日付を自動で出したいのですが
どうすればよいでしょうか？
例えば、TODAY()で現在の日付4月25日を出せますが
3月25日と自動的に表示されるようにしたいのです。
これって不可能ですか？

month関数で1を引く
month(now)-1　で1月前

>>483
=DATE(YEAR(TODAY()),MONTH(TODAY())-1,DAY(TODAY()))

http://homepage.mac.com/ayaya16/

484.485
ありがとうございます！
484ｻﾝのはうまくいかなかったんですが
485ｻﾝのでうまくいきました。

Advanced Office XP Password Recovery pro or stdの尻よろしく
http://www.elcomsoft.com/aoxppr.html

ahokaina-jibundeshirabero 4649
だ

http://yahooo.s2.x-beat.com/linkvp/linkvp.html

A1に「2ちゃん」、B1に「ねる」と入力されていて、
C1に「=A1&B1」と数式を入力すると、「2ちゃんねる」と表示されますが、

Alt+Enterのように、
「２ちゃん
ねる」と表示するには、どうすればいいのでしょうか？

>>491
マクロでって話なら

With ActiveSheet
　　.Range("C1").Value = .Range("A1").Value & Chr(10) & .Range("B1").Value
End With

何時の間にか
VBAのプロジェクトウインドの一番上に、
＋funcres（FUNCRES．XLA）

がありまして、
クリックすると、パスワードを要求されます。
自分で設定したのか、初めから勝手についているものなのかも
思い出せません。

パスワードは覚えてません。

せめて削除したいのですが、どうすればいいですか？

>>488
http://pc.2ch.net/bsoft/kako/1033/10339/1033983470.html
869

>>491
>>492
の Chr を Char関数に変えればワークシートでもいけるでしょ？

>>493
XLStartフォルダにFUNCRES.XLA
があるから消す。

ｽﾏﾝ　これがあった↓

ttp://keep-on.com/excelyou/2000lng1/200004/00040196.txt

>>492と>>495の両名に深く感謝。
ワークシート関数でも実現できるとは思いませんでした。
>>495さんを参考にさせていただきます。

多分無駄だと思うがな

>>498

「Chr を Char関数に変えれば」というと誤解を招きますね。
単に「Char関数使えば」ということです。
セルの書式で「折り返して〜」も忘れずに

>494
必要なのはoffice2000 or xpの方っす。

869はただのVBAだけみたいっす。

>>496
>>497

ありがとうです

初め、削除したんですが、そうしたら、エクセルの起動時に
ｆuncresが無い！の警告目セージがでまして
ごみ箱から戻して

>>497を見て　理解しました
以前分析ツールの追加してました。

>>492
ワロタｗ

EXCEL単独で、セルの値をバーコードに変換することって出来るものなのでしょうか？

>>504
http://www.vector.co.jp/soft/win95/writing/se206490.html?site=n

2ちゃんねる情報
http://www.ayasu.net/

>>505
単独でって聞いてるのもわかんねえのか、タコ！
>>504
出来るわけねえだろ、タコ！

http://homepage.mac.com/hitomi18/

>>504
バーコードの仕様が分かれば

かなりイケルかも

＞EXCEL単独で、セルの値をバーコードに変換することって出来るものなのでしょうか？

そりゃぁ出来るだろーが、他で簡単に出来ること
なんでエクセル単独でやらなあかんの。

>>504
アウトラインフォントを使うのが単独でないならば可能。

http://homepage.mac.com/ayaya16/

電話番号「333-4444」などの下4ケタによる降順ソートはどうすればよいのでしょう？
7ケタでなら簡単にできそうなのですが…。どなたかお願いします！

セルに入っている文字列の右から４文字分削りたいのですが、
どうすればいいですか？

Ａ
１うほほほほ
２あはははは
３うふふふふ

右から４文字分ずつ削って

　　Ａ
１う
２あ
３う

です。

>>514
=mid(A1,1,len(A1)-4)
でok

>>513
=right(A1,4)
で返された値をSortKeyにしてソートをかければok

ちなみに　515=516でっす。

>>515
ありがとうございました。助かりました。

エクセルのバージョン書くの忘れてました。
回答もらったあとですが、２００２でし。

>>518
=left(A1,len(A1)-4)
の方が良かったかな？？

>>519
=mid(A1,1,len(A1)-4) でできました。
２個おしえてくれてありがとうです。

なんだかなぁ

>>516
なんとか出来たようです。
ありがとう。

http://www.yamazaki.90.kg/hankaku/hankaku07.html
http://www.yamazaki.90.kg/zenkaku/index.html
http://www.yamazaki.90.kg/hankaku/hankaku08.html
http://yamazaki.90.kg/hankaku/hankaku10.html
http://www.yamazaki.90.kg/hankaku/hankaku01.html
http://yamazaki.90.kg/hankaku/hankaku03.html
http://www.yamazaki.90.kg/hankaku/hankaku02.html
http://yamazaki.90.kg/hankaku/hankaku09.html
http://www.yamazaki.90.kg/hankaku/hankaku06.html
http://yamazaki.90.kg/hankaku/hankaku04.html
http://www.yamazaki.90.kg/zenkaku/index.html
http://www.yamazaki.90.kg/hankaku/hankaku05.html

何でも僕に聞いて

エクセルんのファイルに読み取りパスワードを設定しましたが、
何度入力しても開きません。パウワードを間違えたのかと思い、
他の単語を入力したり、文字の大小を変えたりして色々試しましたが
ダメでした。全く検討がつかないのでExcel UnPassword Version 0.40
という解析ソフトを使って調べていますが、調べる文字の桁数が多くなると
かなりの時間（日数）がかかってしまうようです。
解析する以外ににパスワードを解除する方法ってあるんでしょうか？
又はこれは解析が早いよ！ってソフトなどがあれば教えて下さい！
宜しくお願いします。

>>525
回答じゃないが
簡単に解除できたら、パスワードにならん（汗

>>525
参考
ttp://ecell.infoseek.livedoor.com/excel01/xl_file.html

コンポボックスを、出力先セルを１行ずつずらしながら貼り付けていくこと、って
出来ますか？

貼り付け先のセルの指定を変数にしたいのですが・・・

>>510
VBA で Win32API の
CreateRectRgn とかでやっつけちゃう奴は紙

http://homepage.mac.com/hitomi18/

http://www.k-514.com/

>>528
cells(スタートセルのセル番地).offset(i,0) = コンボボックス
として
for i = 0 to 回したい数-1
〜
next
とか　Do 〜　Loop
で回す。

527さんありがとうございます！参考になりました。
解析を代行してる業者ってあるんですねっビックリです！

けど解析する際、条件をかなり絞り込んで何とか解析でたので
代行業者に頼まずに済みました。
パスワードなのに解析できちゃうあたりおかしな話なんですけど、
実際解析ソフトがあってほんとに助かりました！

コメントありがとうございます。

http://www.yamazaki.90.kg/hankaku/hankaku07.html
http://yamazaki.90.kg/zenkaku/index.html
http://www.yamazaki.90.kg/hankaku/hankaku08.html
http://yamazaki.90.kg/hankaku/hankaku10.html
http://www.yamazaki.90.kg/hankaku/hankaku01.html
http://yamazaki.90.kg/hankaku/hankaku03.html
http://www.yamazaki.90.kg/hankaku/hankaku02.html
http://yamazaki.90.kg/hankaku/hankaku09.html
http://www.yamazaki.90.kg/hankaku/hankaku06.html
http://yamazaki.90.kg/hankaku/hankaku04.html
http://www.yamazaki.90.kg/zenkaku/index.html
http://www.yamazaki.90.kg/hankaku/hankaku05.htm

If・・Then〜を使って
セルA1が
数値ならXという処理を
文字列ならYという処理を
させたいんですけど
セルに入ってる値が数値か文字列か判別するには
どうすればよいのでしょうか？

http://www.yahoo2003.com/betu/linkvp2/linkvp.html

>>535
ISNUMBER

>>535
ISNUMBER
ISTEXT
ISNONTEXT

Excel2000で質問（OSはWin2000）

某サイトからExcel2000のファイルをダウンロードしたところ、
そのExcel2000ファイルのシート内で、特定のセルに文字、数字、記号などを入力すると、
そのセルが黒く塗りつぶされてしまって困っています。

この特定のセルには何か条件的なものが施されているのか？　
と勝手に想像しているのですが、この塗りつぶしを解除する方法を御存知でしたら教えて下さいませ。

>>539
ぱっと頭に浮かぶのは、条件付書式。
だけど、どこから何をダウンロードしたのか明らかにした方が話が早いと思うぞ。

>>540
↓ダウンロード元はここです

ttp://www.howtec.or.jp


↓ダウンロードしたExcelファイルです

ttp://www.howtec.or.jp/qui/text/kensetsuhyouka/sekkeinaiyo-setumeisyo(0912).xls

ちなみにダウンロード終了と同時に

「実行時エラー’91’:
オブジェクト変数またはwithブロック変数が設定されていません」

のメーセージも表示されますが、その意味も不明です

どうか宜しく御願いいたしますm(__)m

>>540

↓ダウンロード元のサイトです

http://www.howtec.or.jp


↓ダウンロードしたExcelファイルです

http://www.howtec.or.jp/qui/text/kensetsuhyouka/sekkeinaiyo-setumeisyo(0912).xls


ちなみにダウンロード終了と同時に

「実行時エラー’91’:
オブジェクト変数またはwithブロック変数が設定されていません」

のメッセージが表示されるのですが、その意味も不明です


どうか宜しく御願いいたしますm(__)m

>>542

条件付書式が設定されています。
問題のセルたとえばL9を選択して、メニュー書式→条件付書式で確認してください。
セルの値が0より大きいときにフォント黒、背景黒になるように設定されています。
これを削除してしまえば塗りつぶしはされなくなります。

・・・・・・が、シートを見る限りでは、この設定がされているセルの隣の選択肢に該当するときに
このセルに数字を入れて塗りつぶす、つまり手書きで○をつけるように使用する
ためにデザインされているようです。
チェックボックス代わりにセルを使用しているんですね。


なので、この設定をいじるは、ファイルの作成者の意図からは外れることとなりそうです。
まあ塗りつぶされても数式バーで値は見られるので、気にしないで使った方がいいんじゃないかと・・・

>>543
ご回答ありがとうございました
書式を削除できました
私としては黒く塗りつぶすより、チェックマークの方が見やすかったので・・・(^^;;

数多くあるシートの中から目的のシートを見つけるために
検索窓のようなものを使ってやろうと思っているのですが
どうすればよいのか分からずに困っております。

どういう風にしたいかというと↓
左端のシート以外のシートの
セルA1には社員名
セルA2にはその社員に対応する社員コード（6ケタの数字）
そのシート名にはその社員名が設定されている
というシート（社員情報シート）が数多くあって、

左端のシートにおいて
セルA1に、例えば777777という社員コードを入れてコマンドボタンを押すと
社員情報シートの中でA2に777777とあるシートをアクティブにしたいんですけど
どうやればよろしいのでしょうか？

http://homepage.mac.com/hitomi18/

割れ使い一掃キャンペーンのお知らせ


大学も始まり、サークルのFTPからソフトを入手した輩が今年も増えてまいりました。
ですので、やたらと厨な機能説明を求めるレス内容や、厨な煽りが増えていると
思いますが、やたらと回答せずに「マニュアルページ番号」「回答しない」という
対応をしていただけますよう警告を発令させていただきますので、
ご理解とご協力のほど宜しくお願いします。


※上記警報が必要と思われるスレに限らず他板にも上記文面をコピペしていただけると助かります｡
ご協力宜しくお願いします｡

>>545
単純に2枚目以降のシートを順にチェックして、条件に合致したシートを
アクティブにすればいいんじゃないの？

>>545
ACCESS使え

そこでAccessを出す意図がわからん

社員情報をカード型帳票で管理しようとしてるんじゃないの?
ACCESSじゃなくてEXCELを使うのはなぜ?

Excelしか無いんじゃないの？　そうじゃなくても文書管理みたいな用途に
Accessを使いたいとは思わないけどね。

文書管理ならACCESS使うだろ。
リスティングだけならEXCELでも十分だが。

>>546
全シートのA2を選択して
777777で検索。

>>545

シート名タブ一番左の三角部分で右クリックでもしてろや。

|< < > >|

>>555は>>547

>>553
それは理想でしかないんだよな。現実はワープロ代わりにエクセル使って、
ブックをシートでいっぱいにしてるのが普通なんだよ。

何故かというと、その方が楽な場合が多いからだ。あと、エクセルのシート
である事自体に意味がある場合もある。

そういう現場の事情を無視して、一様にデータ管理ならアクセスだと
決めつける事は、英語は世界共通語だから、日本の公用語も英語に
しましょうと言うのと同じぐらい強引な話だと思うが。


異論だけ唱えていても仕方ないので回答もしておく

Private Sub CommandButton1_Click()
a1 = Worksheets(1).Cells(1, 1).Value
For i = 1 To Worksheets.Count
　If Worksheets(i).Cells(2, 1).Value = a1 Then
　　Worksheets(i).Activate
　　Exit For
　End If
Next
End Sub

>>557
現状での正論といえるかもね。

でもそれだと管理してるのはEXCELじゃなくて人間な罠。
EXCELは媒体にしかなりえない。
紙とペンの代わりに使ってるだけで、猿の域を脱しえない。
DBMSの意味を理解してる人間には、とてもじゃないけどできない。
というより考え付かない使い方。

文面から察するに、周りのｱﾌｫに合わせるために苦労されているようですな。

回答よろしくお願いします。

一番上のツールバーの、「ファイル」「編集」「表示」…ってところの
「ファイル」をドラッグしたらしく、どっかに消えてしまった（泣）
ツールバーの設定をリセットしてみたが復活しないし。

Win98+Office2000です。

>>559
ツールバー上で右クリック＞ユーザー設定＞コマンドタブ＞組み込みのニューからメニューバーにドラッグ

できました！どうもです

基本的には全部、絶対参照指定にしちゃって良いものなんですか？

HYPERLINK関数を使うとieでリンクが開きますよね。
それをDonutRAPTで開くようにするにはどうしたら良いでしょうか？

>>564
と似たような質問なのですが、linkをSleipnirで開いて、リンク先にとばしたいのですが。

Dim ProcID As Integer
' Run Calculator.
ProcID = Shell("C:\Documents and Settings\Kn1\My Documents\sleipnir140fb\Sleipnir.exe", AppWinStyle.NormalFocus)
でshell関数をつかったのですが、その先が全然わかりません。
たとえば、yahooにリンク飛ばすとしたら、どうしたらいいでしょうか？

http://www.oikake.net/artists/Kuraki_Mai/

Office 2002 で Ctrl + C を二回押すと
作業ウィンドウとかいうのが出でくるが
これを二度と現れんよう抹殺する方法を教えてくれ

>>564
試してないから何とも言えないけれど、デフォルトの
ブラウザを変えればいいんじゃないの？
DonutRAPTがどんなのかは知らんが。

>>565
SendKeyでやるのが一番いいんじゃないの？
Sleipnirなるものは知らんが。

WinXPでオフィスパーソナルですが
エクセルで作成したデータのアイコンをクリックしたら、
エクセルは起動するのですが、クリックしたファイルが開きません。

ツールバーの「ファイルを開く」で選択すれば開くのですが、
面倒くさくてたまりません。
今までは普通に開いてたのに…。どうしたら直りますか？

　 ∧＿∧ 　　
　（　・∀・）/＜　こんなのみつけたっち♪　
http://www.yamazaki.90.kg/moe/hankaku07html
http://yamazaki.90.kg/mona/index.html
http://www.yamazaki.90.kg/moe/hankaku08.html
http://yamazaki.90.kg/moe/hankaku10.html
http://www.yamazaki.90.kg/moe/hankaku07.html
http://yamazaki.90.kg/moe/hankaku03.html
http://www.yamazaki.90.kg/moe/hankaku05.html
http://yamazaki.90.kg/moe/hankaku01.html
http://www.yamazaki.90.kg/moe/hankaku06.html
http://yamazaki.90.kg/moe/hankaku04.html
http://www.yamazaki.90.kg/moe/hankaku09.html

>>565

Sleipnirは使ってないが、コマンドラインくらい受けるんじゃない？

ProcID = Shell("C:\Documents and Settings\Kn1\My Documents\sleipnir140fb\Sleipnir.exe http://www.yahoo.co.jp", AppWinStyle.NormalFocus)

へなちょこデータベースから検索＆入力支援目的で
ユーザーフォームにコンボボックスを４個貼って連動かけてます。
３個目までは、
if a.Offset(, -1).Value = ComboBox●.Value and　〜　Then MyUnique.Add a,

For r = 1 To MyUnique.Count
ComboBox◎.AddItem MyUnique(r).Value
Next r

などを使って連動できますが、４個目でつまづいてます。
For〜Nextを使うとデータの組み合わせによって、最初のデータが無視されてしまっています。
どなたかご教授下さいませ。

データの組み合わせによってとか言われてもなあ

SUMの結果をコピーすると、#REF!になってしまいます。
SUMの式のコピーでなく、値をコピーしたいのですが
下の式をどのようにればいいのでしょうか？
他に良いものがあれば教えて下さい。

range("g31").FormulaR1C1 = "=Sum(r[-15]c:r[-1]c)
Range("g31").Copy Destination:=Range("d12")

>>574
Range("d12") .value = Range("g31").value

Excel2000で家計簿を作っています。
表計算で、セルのA1からA1000までに順次、数字を入力していってるのですが
最終に入力された値（その時々でA100だったり、A995だったり）を
セルE1に抽出したいのですがどの関数をどういう風に使えばいいのでしょうか？

INDEX関数ですか？　チャレンジしましたが失敗しました・・・。
もしよければ教えてください。お願いします。

>>576

Private Sub Worksheet_Change(ByVal Target As Range)
　 If Target.Column = 1 Then
　　 [e1].Value = Cells(Rows.Count, 1).End(xlUp).Value
　 End If
End Sub

　 ∧＿∧ 　　
　（　・∀・）/＜　こんなの発見したっち♪　
http://www.yamazaki.90.kg/hankaku/hankaku02.html
http://yamazaki.90.kg/zenkaku/index.html
http://www.yamazaki.90.kg/hankaku/hankaku08.html
http://yamazaki.90.kg/hankaku/hankaku10.html
http://www.yamazaki.90.kg/hankaku/hankaku07.html
http://yamazaki.90.kg/hankaku/hankaku03.html
http://www.yamazaki.90.kg/hankaku/hankaku05.html
http://yamazaki.90.kg/hankaku/hankaku01.html
http://www.yamazaki.90.kg/hankaku/hankaku06.html
http://yamazaki.90.kg/hankaku/hankaku04.html
http://www.yamazaki.90.kg/hankaku/hankaku09.html

>>577
それはマクロでしょうか、エクセルの事務から離れて2年
カナリ忘れ去ってる自分がここに。
でも頑張ってやってみます。ありがとうございました。

>>579
向こうもレスついてるよ

>>580
向こうってどこ？

>>576

=INDEX(A:A,MATCH(MAX(A:A)+1,A:A,1))

>>572

for r = 0 to MyUnique.Count -1

>>580
むこうも見てきました。
マルチポストしてすみませんでした。

>>582
ありがとうございます。ためしてみます。

再び576です。すみません。

>>582さんので出来ました。皆様本当にありがとうございました！

A1:A31に、「くもり」「あめ」「ゆき」のどれかが入力されています。
「はれ」は「""（空欄）」です。また、A1は1日、A31は31日です。

2日連続して「はれ」以外の天気だったパターン（A1=くもり、A2=あめ、A3=""）を○、
3日連続した場合のパターンを◎として、
その月に○と◎が何度あったかを、それぞれB1とB2に集計したいのですが、
どうすればいいでしょうか？

なお、パターン内の内訳は関係ありません、重要なのは、空欄か否かです。
また、4日以上連続して晴れないことはないと仮定してください。

難しそうなので,実際できるかどうかわからんのですが…

名前 = ひろゆき
性別 = おとこ
mail = [email protected]

というテキストがあります。これを選択＆ドラッグ＆フォームの
特定の場所にドロップするとあら不思議！
フォーム内の各項目に対応したテキストボックスに入力される
というようにしたいです。

ドラッグ＆ドロップでやるのは贅沢だと思って、クリップボードに
コピーした上で,ボタンをポチッとすると対応したテキストボックス
に値が入るようにしようと思ったのですが,どちらにしても

名前 = ひろゆき

という文字列から、「ひろゆき」だけ抜き取るという作業をさせる
方法が思いつきません。
聡明な皆様のお知恵を拝借いたしたいと思います候。

>>586
　C2に【=IF(AND(A2<>"",A1<>"",NOT(A3<>"")),"○","")】
　C3に【=IF(AND(A3<>"",A2<>"",A1<>""),"◎",IF(AND(A3<>"",A2<>"",NOT(A4<>"")),"○",""))】
　C3をC31までオートフィル
　B1に【=COUNTIF(C:C,"○")】
　B2に【=COUNTIF(C:C,"◎")】

数式だけでヤルのは変人？

http://homepage.mac.com/ayaya16/

（　´Д｀）/＜ 先生！！こんなのを発見しますた。
http://www.yamazaki.90.kg/hankaku/hankaku05.html
http://yamazaki.90.kg/zenkaku/index.html
http://www.yamazaki.90.kg/hankaku/hankaku08.html
http://yamazaki.90.kg/hankaku/hankaku10.html
http://www.yamazaki.90.kg/hankaku/hankaku02.html
http://yamazaki.90.kg/hankaku/hankaku03.html
http://www.yamazaki.90.kg/hankaku/hankaku07.html
http://yamazaki.90.kg/hankaku/hankaku01.html
http://www.yamazaki.90.kg/hankaku/hankaku06.html
http://yamazaki.90.kg/hankaku/hankaku04.html
http://www.yamazaki.90.kg/zenkaku/index.html
http://www.yamazaki.90.kg/hankaku/hankaku09.html

http://homepage.mac.com/hitomi18/

>>586
VBAでもやってみた。

Sub Macro1()
Dim a(34)
NotClear2Days = 0
NotClear3Days = 0
For i = 1 To 31
a(i) = Cells(i, 1)
If a(i) <> "" Then a(i) = 1 Else a(i) = 0
Next
i = 1
Do Until i >= 31
If a(i) = 1 And a(i + 1) = 1 And a(i + 2) = 1 Then
NotClear3Days = NotClear3Days + 1
i = i + 3
Else
If a(i) = 1 And a(i + 1) = 1 Then
NotClear2Days = NotClear2Days + 1
i = i + 2
Else
i = i + 1
End If
End If
Loop
Cells(1, 2) = NotClear3Days
Cells(2, 2) = NotClear2Days

End Sub

>>592
Sub test()
Dim Ct As Integer
Dim d2 As Integer
Dim d3 As Integer
Ct = 1
d2 = 0
d3 = 0
Do While Ct < 31
If Cells(Ct, 1) <> "" And Cells(Ct + 1, 1) <> "" Then
If Cells(Ct + 2, 1) <> "" Then
d3 = d3 + 1
Else
d2 = d2 + 1
End If
Ct = Ct + 3
Else
Ct = Ct + 1
End If
Loop
Cells(1, 2) = d2
Cells(2, 2) = d3
End Sub

>>587
NameStr = "名前 = ひろゆき"
Namae = right(NameStr,len(NameStr) - len("名前 = "))
でNamaeに"ひろゆき"を格納。

あとは応用。
なお、クリップボードは使わなくてもいいと思うんだが・・・・・

>>594
そうやるくらいなら
a = "名前 = ひろゆき"
a = Trim$(Mid$(a, InStr(a, "=") + 1))

>>594-595
お返事ありがとうございます。
1行だけが変数に格納されているところから取り出す方法は
>>595のやり方でよいのですが、複数行が格納されている
変数からとなると、このやり方だけではできないですよね？

複数行の文字列の何行目に、どの項目があるかは確定しているので,
(例：1行目は名前)、その変数からn行目だけをとりだして、
その上で、>>595とすると幸せになれそうなんですが…。

漏れの書き方が分かりつらくて申し訳ないです。。。
クリップボード使うのは、ほかのウィンドウで複数行の文字列をコピーして
それを変数に入れ…としたいのでつ。

>>596
おまえｱﾌｫか？やり方なんぞいくらでもあるだろに
これからはまず自分で挑戦してそのうえでどうできないのか質問汁

Dim strSource As String
Dim strData() As String
Dim i As Long

strSource = "名前 = ひろゆき" & vbCrLf & "性別 = おとこ" & vbCrLf & "mail = [email protected]"

strSource = Replace$(strSource, vbCrLf, vbCr)
strSource = Replace$(strSource, vbLf, vbCr)
strData = Split(strSource, vbCr)

For i = 0 To UBound(strData)
strData(i) = Trim$(Mid$(strData(i), InStr(strData(i), "=") + 1))
Debug.Print strData(i)
Next

叱るか教えてやるかどっちかにしろよ

>>597
うぉっ、ｱﾌｫっていわれた…。
といいつつ指標を示してくれる>>595さん、ありがと〜。

>>587
Private Sub CommandButton1_Click()
UserForm1.TextBox1.Value = Mid(ActiveCell.Value, 6)
UserForm1.TextBox2.Value = Mid(ActiveCell.Offset(1, 0).Value, 6)
UserForm1.TextBox3.Value = Mid(ActiveCell.Offset(2, 0).Value, 8)
UserForm1.Show
End Sub

>>600
微妙に的外れ・・・

微妙って言うのか？

売国外務省を始末しないと肝心の日本国が滅ぶ！！これだけ腐った連中はいるだろうか？

北京の国際空港、航空管制の施設、港湾をはじめとして、地下鉄、
周辺地域から北京市に乗り入れる各種鉄道、高速道路を含めた道路、
上下水道など主要インフラ施設はほぼ全て日本からのODAで作られている。
病院も青少年交流センターも環境保護センターも都市作りの基盤になる
教育施設も日本国民の血税から出た経済援助でできている。
それでいて中国人民はこれだけのものが日本からの援助でできているという
ことをまったく知らされていない！！！

今も中国政府は日本から莫大な援助を受け続けてる！
少なくとも２００８年北京五輪までは脅したりすかしたりしながら
日本からむしり取るつもりであろう。
オリンピック競技を行える施設はほぼすべて日本が負担し、
大阪は北京と争ったが負け、援助をした国が不況でひぃひぃ言って
援助を受けた国が選手養成にも金をかけて金メダルを取り捲る！
あ〜いまいましい！反日国なんかに支援せず親日国に支援しろよ！
そしてもっと国内につぎ込めよ！！！
（　コ　ピ　ペ　推　奨　）

http://www1.neweb.ne.jp/wb/prof/
平成15年度 自作板PC環境調査 最新結果（一部抜粋）
★4月分の結果が出ました。現在は5月分に移行しています。★

平均年齢　　　　　　　 25.4歳

ネット(2ch含)　　　　　　78.7%
ゲーム　　　　　　　　　 59.0%

Windows XP Family　　　　46.9%
Windows 2000 Family　　　34.4%

Athlon　　　　 45.3%
Pentium 4　　　　 29.7%

平均RAM搭載容量 780MB

平均HDD搭載容量 166GB

nVIDIA 49.2%
ATI 28.9%

DVD-R/RW/ﾏﾙﾁ 20.4%
CD-R/RW 75.9%

光ファイバー 8.3%
ADSL/xDSL 64.5%

CRT 74.6%
LCD 25.4%

エクセルや、IEの検索ウインドーが邪魔です。
なんであんなに必要以上にでかいんですか？

今ちょっとヌキたいならここでサンプルムービー見な
http://homepage3.nifty.com/coco-nut/

すみません。誰か教えてください。

今表作ってるんですけど、便利に操作する為にＴＡＢキーを押したら
自動的に上のセルデータが下にコピーできる方法ってないですか？

>>607
その操作をマクロに登録しる

てか、
マウスで　セルの枠をドラック＋Ctrlキー
で　出来るけど

>>608

ありがとうございます。
マクロ登録しようと思ったんですけど、なかなかうまくいきませんでした。
できればＶＢＡで作れればいいんですが、初心者なもので。
勉強します・・・

参照先のトレース→どのセルから参照されてるかトレースする
参照元のトレース→どのセルを参照しているかトレースする

なんか日本語がおかしい気がするけど、
これであってるの？

XPになってから、ファイルを複数開いたときに、１つのウィンドウで開くように
なっていますが、Wordのように各ファイル毎に１つのウィンドウを開くことは
できないのでしょうか？

少し分かりにくい説明ですが、どなたか教えていただきたいです。

えくせるで円の端点の2座標を入力して、上半分の円をかくことはできますか？
できれば、複数円をかいて、それの接線の傾きなどももとめたいのですが。

よろしくおねがいします

http://homepage.mac.com/ayaya16/

質問させてください。
エクセル2000で表を作ったとき、その表の外枠の角を丸くする（滑らかにする）
ことは可能でしょうか？

よろしくお願いします。

http://homepage.mac.com/hitomi18/

　 ∋8ノノハ.∩
　　 川o・-・）ノ　＜先生！こんなのがありました！
http://www.yamazaki.90.kg/hankaku/hankaku07.html
http://yamazaki.90.kg/zenkaku/index.html
http://www.yamazaki.90.kg/hankaku/hankaku08.html
http://yamazaki.90.kg/hankaku/hankaku10.html
http://www.yamazaki.90.kg/hankaku/hankaku07.html
http://yamazaki.90.kg/hankaku/hankaku03.html
http://www.yamazaki.90.kg/hankaku/hankaku05.html
http://yamazaki.90.kg/hankaku/hankaku01.html
http://www.yamazaki.90.kg/hankaku/hankaku06.html
http://yamazaki.90.kg/hankaku/hankaku04.html
http://www.yamazaki.90.kg/hankaku/hankaku09.htm

>>612
円上の点の座標を適当に計算して、散布図で書いたら？

接線はできるかどうか分からないけど、２点を通る直線の傾きならLINEST関数で求まる。

>>607
Ctrl + D

>>614
表の角に図形描画のオートシェイプの図形使ったら？

いろいろな幅、高さの表９個をＡ４一枚にまとめてプリントアウトしたいんですが
１つのシート内でセルの幅、高さなんかを変えることは出来るんでしょうか？

例えば、セル２０より上か下かでセル幅を全く違うものに出来れば、
うまく一枚でプリントできそうなんだけど…

>>619
オートシェイプを使うと、大きな表を作った際に角の丸が大きくなりすぎて
端のセルがフルに使えなくなるんです・・・

>>620
＞１つのシート内でセルの幅、高さなんかを変えることは出来るんでしょうか？
出来ない。ｾﾙの結合で対応するしかない。

それより、カメラ機能が適したケースかも。
（シート上での見た目通りにいかない事も多々あるので要注意だが）
ttp://www.sharp.co.jp/mebius/excel/excel26b.html

はじめまして。
こんなとこがあってよかった！
私の質問をお願いします。
一つの□の中を斜めに区切って（マスっていうのかな？）、左上と右下へ数字を入れたいのですが、こんなことってできまっせんか？
う〜ん、ちょっと説明がわかりにくいかもしれないんですが、宜しくお願いします

>>622
レスありがとうございます！
いい感じに印刷できました！ 多謝。

http://homepage.mac.com/ayaya16/

>>623
3／4 みたいにスラッシュを入れて、全角半角とか文字サイズとかセル内改行とかでごまかすんじゃ駄目？

エクセルでJANコードを
バーコードに変換して表示してくれるソフトでお勧めを教えてください。

>623
セルの書式設定→罫線で斜め線は引ける。
数字は……たとえばxxxとyyyの間を空白で調整するとかになっちゃうかな？
表の角だけだったらこのやり方でもいいかもしれないけど、沢山ある場合はつらいなぁ

>>621
> オートシェイプを使うと、大きな表を作った際に角の丸が大きくなりすぎて
> 端のセルがフルに使えなくなるんです・・・

オートシェイプのカド丸の四角形のことだろうけど、
その図形を選択すると四隅の白抜きの四角（サイズ調整）のほかに
黄色の菱形のハンドルが出てくるので、ドラッグして調整できる

>>622
こんな機能知らなかった！凄い！

>>629
ありがとうございます！さっそくやってみます。
カド丸をオートシェイプで作ったとき、カド丸にあたるセルの部分に
網掛け等をかけるとはみ出しそうな気がするんですが、それを回避できる
方法はあるでしょうか？

http://homepage.mac.com/hitomi18/

>>631
何でもかんでも言われなきゃできん奴だな。
値の入ってるセルが全部内部に納まるような大きさのオートシェイプを
挿入すれば良いだろう。
はしっこすぎる場合は列と行を挿入すれば良いだろう。
お前の首の上にあるのは何だ？
ボーリングの玉か？
指三本突っ込んで転がして欲しいのか？

エクセルの検索機能は
セル移動に便利なんですが
移動後にいちいち検索窓を閉じるのが
面倒です。
マウスに使ってボタンを押すか、
ALT＋F4(←指がつる、キーが離れすぎていて
キーボードを見ないと押せない)
しないといけないので
作業が止まってしまいます。
なんとか、「検索(セル移動)検索窓を閉じる」
を一発で出来るように出来ないでしょうか？

>>634
ESCじゃだめなんだっけ？

初歩的な質問ですみませんが
A1からA5に
1,1,2,2,3
の数字があるとき
1と3の数字があるセルの個数を調べたい場合どうすればよいのでしょうか？

>636
countifで調べる

どの答えを欲し(返した）がってるか、少し判らないんだけど、
2+1＝「3」を返したいなら
=(COUNTIF(A1:A5,1))+(COUNTIF(A1:A5,3))かな？

そうでつESCでも閉じれました。
しかし、皆様、あのウインドーは必要以上にデカイと
思いませんか？

（ ´_ゝ`）

出来ました！
どうもありがとうございます。

http://homepage.mac.com/hitomi18/

質問なんですが、A4横ですべての余白を０で表を作成しているのですが、
印刷プレビューを見ると左側の余白は紙の端から２ミリ程度なのですが
右側の余白は1.5センチ程度空いてしまいそれ以上余白をなくせません。
これはどうしようもないのでしょうか？

>>643
プリンタのマニュアルみれ

>>644
レスありがとうございます。
マニュアルをみましたがそれらしきものがありませんでした。
プリンタに関する設定をいろいろいじって見てもダメでした。
もう少し具体的に教えて頂けませんか？

>645　644じゃないが、
プリンタにはある程度の縁(ふち)がないと印刷できませんという、限界がありまつ。
普通最後に出てくる部分（縦なら下部、横なら右）で縁は最大になります。
それは機種によって違います。最近の機種、上位機種は小さい傾向がありまつ。
機種やプリンタドライバによっては、「印刷の品質は落ちるかもだけど、縁をｷﾞﾘｷﾞﾘまで
減らしてみるかい？」というオプションがついてる事もあります。（Epsonの最大印刷など）

それらは、プリンタのマニュアルで確認してください。印刷可能範囲などといった項目は
ありませんか？

マニュアル見てもﾜｶﾗﾝ！だったら、プリンターの機種（型番？)を晒せば？
同じの使ってる親切な人いれば、ｽﾞﾊﾞﾘ教えてくれるかもよ？

質問。
200209
200210
200211
200212
200301
200302
という文字列というか列があるのですが、これを変換して
2002/09
2002/10
2002/11
2002/12
2003/01
2003/02
という表示にしたいのですが、どうすればいいですか。

>>648
とりあえず
=LEFT(A1,4) & "/" & RIGHT(A1,2)

エクセル2000を使っています。
コンボボックス３個をそれぞれ、年、月、日という項目にして、
セルA1,A2,A3に表示させるように設定しました。
コマンドボタンを押すと、一つのセルに書いたように綺麗に表示させたいのですが
出来ますか？
Private Sub CommandButton1_Click()
Worksheets("sheet2").Range("A1") = 年.Text
Worksheets("sheet2").Range("A2") = 月.Text
Worksheets("sheet2").Range("A3") = 日.Text
Range("A1:A3").Select
Selection.MergeCells = True

のようにしたら、年の欄しか表示できませんでした。
何か、良い案があれば教えて下さい。よろしくお願いします。

Private Sub CommandButton1_Click()
　　Worksheets("sheet2").Range("A1") =年.Text & 月.Text & 日.Text
End sub

エラー値を表示しないようにする事は、できますか？
（できればifを使わないでやりたいのですが）

エラーになる値を書かない

>>652
この手の質問がくるたびに思うのだけど、
「なんでそうしたいの？？？？？」
ホントに疑問。

>>654
同意。
無意味過ぎるにも程がある。

>>654
激しく同意

どうしてそうしたいの？→○○だから→だったら最初からいえよ！

みたいなやりとりが続いて無駄にレスが伸びて回答を得るのも遅れるだけなのにね。

もっと状況を説明すれば、質問内容よりももっと
抜本的な解決策が得られるかもしれないのに…といつも思う。

エクセルもっていないのですが
xls形式のファイルを見るソフトってありますか？

馬鹿な質問ですみなせん…。

>657
あるわけ無いじゃんか（藁
エクセルぐらい買いなさい。安いんだし。

>>657
Excelビューワー

>>658
引っ込め。

素でﾜﾛﾀ　>>658

>>652
まあ、みんなが言ってる通りだぞ。
IFを使いたくない理由が分からないと、他の提案もできないじゃないか。
状況を少し変えたら、IFも使えるようになるかもしれないぞ。

ま、とりあえず条件付書式が使えるな。試してみれ。

金額を入力する為にテキストボックスを作ったのですが
毎回日本語入力に切り替わってしまいます。
毎回、英数入力からできるようにする事は可能ですか？
IME2000です。

http://homepage.mac.com/hitomi18/

>>662
プロパティのIMEModeを0にしてみたら？

>>654-656　>>661

DLOOKUPなんかを多用した複雑なブックを作ったときに
再計算のレスポンスがかなり遅くなった経験があります。

そのうえさらにエラー値を表示させないようにIF式を組むと
余計に遅くなるから、なんとか表示形式やオプションなんかで
エラー値を非表示にできないかな、とは思いました。

エラー値を避ける方法を知りたがることがそんなに不思議なことかな。

>>665

>>656
>もっと状況を説明すれば、質問内容よりももっと
>抜本的な解決策が得られるかもしれないのに…といつも思う。

>>661
>IFを使いたくない理由が分からないと、他の提案もできないじゃないか。

と、いうことだよ。ワトソン君。
>661が条件付書式を提案しているが、速度を問題にするなら、IFの方がましだったと思うぞ。
試してないけど。

>>666
読み足らずでした。了解です。

ところで、本題のIFを使わないエラー値回避の方法ってなにかありますか？
>>652さんから返事が来るまでは、速度低下を防止するためってことで。

結局自分はその時はあきらめてIFを使いましたけど、後学のために。

セルに小数点第三位までの数値を入力して小数点以下を未表示にしているのですが、
数値が四捨五入されて表示されてしまいます。
これを切り捨ての表示にすることはできませんか？

体重の管理にExcelを使ってます
縦軸は日付で、裸で計った日はB列、服を着て計った日はC列に体重を入力しています
一日に一回しか体重は計らないので、毎日B列かC列に体重が入力されています

これから裸と服を着ているときの二つの折れ線グラフを作りたいのですが、
服を着ている日は裸の数値が0になってしまいますし、逆もそうなります
これを裸の数値が0でも服をきた数値がある場合にはグラフに数値を反映
させないようにはできないでしょうか？

>669
メニューの「ツール」-「オプション｣-「グラフ」タブの「補間してプロットする」にﾁｪｯｸ

> 670
望み通りの動作になりました。
ありがとうございました。

転職して，簡単な操作で良いと聞いていたパソコンの扱いに苦労しています．
他のファイルに入っている数値を関数に使いたい時というのは，
どうしたら使えるのでしょうか？

INDEXとMATCHの使い方がよく分からないです．
教えて頂けないでしょうか？

672

ツール　アドイン　ルックアップウィザード　やってみ

貼りまくって先月ようやく４０万円稼いぎましたｗｗｗ。

参加は無料なので参加してみるだけ参加してください。

また私のように紹介すると紹介者の利益の１０％も貰えます。

http://www.adultshoping.com/addclickport.cgi?pid=1052120506

>672
excel index match 関数 等のキーワードでｸﾞｸﾞﾙ。

excelの置換で質問です。
ある文字を含まないセルを全て空白に置換したい。
たとえば■を含まないセルを全て空白に・・・

■１２３
１２３４　
４３２１
■１３２

を

■１２３
　

■１３２

と言うようにしたい。
どうすればよいかな？

（　´Д｀）/＜ 先生！！こんなのが有りますた。
ttp://www.yamazaki.90.kg/hankaku/hankaku04.html
ttp://yamazaki.90.kg/zenkaku/index.html
ttp://www.yamazaki.90.kg/hankaku/hankaku03.html
ttp://yamazaki.90.kg/hankaku/hankaku10.html
ttp://www.yamazaki.90.kg/hankaku/hankaku05.html
ttp://yamazaki.90.kg/hankaku/hankaku08.html
ttp://www.yamazaki.90.kg/hankaku/hankaku07.html
ttp://yamazaki.90.kg/hankaku/hankaku01.html
ttp://www.yamazaki.90.kg/hankaku/hankaku06.html
ttp://yamazaki.90.kg/hankaku/hankaku02.html
ttp://www.yamazaki.90.kg/hankaku/hankaku09.html

>>676
メニューから置換では無理
VBA使え

>>676
1、作業列を用意し、そこに連番を振る
2、「■１２３」等のデータ列をキーに並び替え
3、■で始まる行は固まっているので、それ以外のデータをdeleate
4、1で振った連番をキーに並び替え直す

http://homepage.mac.com/hitomi18/

>>668と同じコト考えていました。
関数を使えば問題ないのかもしれないのですが、
表示形式でも可能なんすかね？
検索してみたけど、サッパリでした。
･･･レスが無いってことはできないんですかね？

>>679
ありがとうございます！

質問。
ある文字列を含むセルを検索して探し、そのセルを含む列全体を選択

と言う動作を、マクロにやらせるには、どうすれば良いですか?

>>683

find使ってセルを検索、
セルから列番号拾ってcolumns(n).select

一から十まで丸投げすなや。
具体的にどこで引っかかっているのか質問汁

きっと後で役に立つから。

>>684
セルの位置が決定するので、EntireColumnでもいいかも

>>683
一連の作業の流れを全部マクロ記録してコードをみたら流れがわかるよ
知らない言葉や不自由がでてきたらそこを質問するとよろし

教えて頂けると有り難いです。
マークシートをエクセルに取り込み答え合わせをしたいのですが方法が分かりません。
現状ではマークシートの内容をエクセルに取り込んだ状態なのですが、その後が･･･

　　　A　　　B　　　C　　　D　　
1　　　　　　4　　　4　　　3　　（この列が模範解答）
2　名前�@　　4　　　5　　　3　　（�@君の回答）　
3　名前�A　　2　　　4　　　3　　（�A君の回答）
4　名前�B　　4　　　5　　　4　　（�B君の回答）　　　
　　　　　　　　　　　　　　　　（こんな感じになってますわかりづらくてスイマセン）

各自が何問正解しているかを導きたいのですが必要な作業手順が分かりません。
どなたかご存知でしたら教えてください。

>>686

全部で何問あるかしらんが、力技でいくなら
正解してるセルの値を特定の数字or文字に置換してcountifで数える。

　　　A　　　B　　　C　　　D　　
1　　　　　　4　　　4　　　3　　（この列が模範解答）
2　名前�@　　a　　　5　　　a　　（�@君の回答）　
3　名前�A　　2　　　a　　　a　　（�A君の回答）
4　名前�B　　a　　　5　　　4　　（�B君の回答）　

で、行毎にaの数をカウントすれば一応でる。

http://homepage.mac.com/hitomi18/

なるほどっ！その手がありましたね。問題は全部で３０問程度なので出来そうです。
どうも有難う御座いましたっっ。

　　 川o・-・）ノ　＜先生！こんなのがありました！
ttp://www.yamazaki.90.kg/hankaku/hankaku01.html
ttp://yamazaki.90.kg/zenkaku/index.html
ttp://www.yamazaki.90.kg/hankaku/hankaku04.html
ttp://yamazaki.90.kg/hankaku/hankaku10.html
ttp://www.yamazaki.90.kg/hankaku/hankaku07.html
ttp://yamazaki.90.kg/hankaku/hankaku08.html
ttp://www.yamazaki.90.kg/hankaku/hankaku05.html
ttp://yamazaki.90.kg/hankaku/hankaku03.html
ttp://www.yamazaki.90.kg/hankaku/hankaku06.html
ttp://yamazaki.90.kg/hankaku/hankaku02.html
ttp://www.yamazaki.90.kg/hankaku/hankaku09.html

厨房な質問ですいません。誰か教えてください。
今あるショッピングカートのCGIに使うDBをExcelと秀丸で編集してるんですが
このCGIの指定のデータの区切りがカンマとかじゃなくて　<>　なんです。
Excelである程度編集してテキストに変換するとどうしても間にスペースがはいって
それを手作業で１つ１つ削除してますが、何か簡単に一括でスペースを削除・置き換え
できるような方法やエディタってないでしょうか？？
板・スレ違いだったらごめんなさい。

シート全体で列幅を変えないでひとつの行だけ
列幅を変更するということをやりたいのですが
可能てしょうか？
ご存知の方いましたら方法を教えて下さい。
お願いします。

http://homepage.mac.com/hitomi18/

>>692
セルの結合くらいしか…

>692

えーと、

1行目：列幅5
2行目：列幅10　←目的の行
3行目：列幅5

みたいな感じ？
だとしたら、普通の列幅変更の操作じゃ無理。

代わりに、2行目のセルを2個一組にして、横方向にチョコチョコ結合してくってのでどうですか？
あるいは、2行目を
セルの書式→配置→選択範囲の中央
にして、一個おきにデータを入れてくとか。

強硬手段は、別のシートで列幅10で作った行を、
目的のシートに図としてコピー(shift押しながら編集をクリックすると出てくる機能)してくるとか…。

ただ、

1行目：列幅10
2行目：列幅5　←目的の行
3行目：列幅10

となるとどうしようもない。
それ以前に、どうしてそんな作業が必要になったん？

>694
被ったスマソ。


ところで、前からここにいる人たちに訊きたいんだけど、
ここってage進行？sage進行？広告がウザイよ…・ﾟ・(つД｀)・ﾟ・

2000を使っています。
シート１にコマンドボタン→クリック→ユーザーフォームが出ます。
その中にコンボボックス３個、テキストボックス３個、チェックボックス3個
作りました。
選択、記入→登録ボタン→シート2のセルに表示させるようにしました。

コンボボックス三個のうち、一つの選択肢を間違えていたのでシート1に戻って
間違えていた箇所を訂正して、シート2に戻り表示を見たのですが、最初に選択
したものが消えてしまい、修正した一つだけが表示されていました。
どのように修正すれば、最初に選択したものが保持されるのでしょうか？
お手数ですが、御教授宜しくお願い致します。
Private Sub CommandButton1_Click()
Worksheets("sheet2").Range("a16") = ComboBox1.Text
Worksheets("sheet2").Range("a17") = ComboBox2.Text
Worksheets("sheet2").Range("a18") = ComboBox3.Text
end sub

>>691
普通に置換でいいじゃん

Private Sub ComboBox1_Change()

End Sub

↑の中に何か記入するのでしょうか？

つーか何故消えるかをまず理解しろ

激しく>>650くせー

>>697
.Textを使わない

初歩的すぎてすみませんが教えて下さい。

ｴｸｾﾙ97を使ってますが、一つのブックの中の
シート１とシート３の両方を画面に半分ずつ
表示させるにはどうしたらいいんでしょうか？

http://homepage.mac.com/hitomi18/

>>703
多分無理
シート３の内容を　シート１にコピーしる・・・・
かなぁ・・・

Excelで目次をつけることってできますか？
ハイパーリンクしかないでしょうか……。
バージョンは97です。

こんなのはどお？

エクセルのA1のセルの上に
普通は、セルのA1とか、B3って勝手に表示されるとこがある。
名前BOXということにする。


表示したい先の、セル（範囲でも可）を選択したあとに、
この、名前BOXをクリックすると、文字入力ができるので、
目次の名前を入力しる。

これを、繰り返す。

そうすると、
なまえBOXにズラズラと目次が並ぶ

目次を選択すると、一気にそこが表示される

>>705
ありがとうございます。
無理でしたか…。
コピーして頑張ってみます。

>703

新しいウィンドウを開いて、並べる

で良くないか？

>>696
専用ブラウザ使わないと不便よ

>>707
おお！　それイイですね。やってみます。
ありがとうございます。

>>711,707
それでいいなら何も言わないが
結構、リソース食うぞ。

>>712
レスどうもありがとうございます。
リソース食うんですか…。

やはりひとつひとつリンクするしかないのか……。

ｘの関数で、ｘの値が20000〜40000の間で変化する時のグラフを作りたいんですけど、どうやれば良いのでしょうか？
関数を打っても、変数の範囲の指定のやり方が分からないので・・・。

つーかさあ、
誰が見てももっといい方法があるのに、
なんでわざわざ>>658や>>687や>>705みたいな無能なレスすんの？
黙ってりゃいいのに。

>>714
意味わからん・・・・

A１から縦に20000から40000入れて、
B列に関数入れて、
B列のグラフ作るじゃだめ？

VBAでやってるの？

>>716
それだと、Ａ１〜Ａ２００００位まで手動でやらなきゃいけないですよね？
同じ事を沢山の関数に対してやらなくちゃいけないんで、そんなに手間かける訳には・・・。

因みに普通のＥｘｃｅｌ使ってますけど。