Excel総合相談所 48

▼━ 答えやすい質問のしかた ━━━━━━━━━━━━━━━━
★1 質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。
★2 要望は具体例や図を使って明確かつ具体的に。
★3 質問前に>>2-1000あたりの注意書きやQ&Aも読もう。
★4 質問テンプレは必須じゃないけど、
　　　OSやExcelのバージョン､VBAの可否など(下記テンプレ1〜4の情報)は必須情報。
　　　これを書かなかった場合は､以後まともな回答が付かなくても文句言わないでね。

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

※【4】は、VBAはわからないけどコード書いてくれるならVBAでもいいって場合は｢可｣
　 VBAを使うのは避けたいって場合は｢否｣にしましょう。

▼━質問時の注意･決まり事 ━━━━━━━━━━━━━━━━━
･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 テキストボックス(エディトボックス)、コンボボックス(ドロップダウンリスト)、リストボックス、コマンドボタン、
　　チェックボックス、オプションボタン(ラジオボタン)、スピンボタン、スクロールバー、等の質問をするときは、
　　ユーザーフォーム、コントロールオブジェクト、フォームオブジェクトのどれなのかを必ず書くこと。

★注意1

テンプレを使わないのも､情報を出さないのも自由です。
ただし後出しの情報に延々と付き合っていたら他の質問者に迷惑が掛かるので
回答は最初に出された条件のみを元に行われることもあります。
指摘されてから質問し直しても無視されることがあるので､
そういう扱いをされるのが嫌なら､きちんと情報を書きましょう。


★注意2

VBAを知りたてでプログラミングまでは出来ない人は､
VBAが高機能なのをいいことに､いろんなことをVBAでやろうとする傾向がありますが､
Excelのブック､シート､およびシート上に配置されたオブジェクトの操作以外は
スレ違いなのでここで質問しないでください。
ユーザーフォームについても､VBとVBAで違いがある部分以外はVBの分野です。

★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法)

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

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

★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法)

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

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

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

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

上記 ｢Excelで出来ないこと、仕様上の制限｣ は､一般的に出来ないとされていること､出来ないと思われるものです。
間違いがある可能性もあるので､上記に挙がってるもので｢コレはこうすれば出来るよ｣というものがあったらご指摘ください。

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

常用対数
http://ja.wikipedia.org/wiki/%E5%B8%B8%E7%94%A8%E5%AF%BE%E6%95%B0

消費期限前3日前になると文字を赤くする方法を教えて下さい

>>8
条件付き書式
使い方はヘルプ参照

993氏の方法で解決できました。
ありがとうございました。

A1に価格、B1に数量、C1にその積を表示させます。
B1が空欄でもC1にA1の数値が入ってしまうのですが
B1が空欄のときC1に0と表示させる方法はありませんか？

嘘をいっちゃあイカン。

>>12
A1とかじゃなくてA3ですけどもうｐしました
http://www.borujoa.org/upload.php
http://www.borujoa.org/upload/source/upload7250.jpg

A1*B1でどうして0にならないのかと思ったら
product使ってたのか、嘘と言ってスマン

質問が２つあります。
�@A1にaをいれたらB1にb
A1にcをいれたらB1にd
とするようにはどうすればいいですか？

�AA1にaを入れたらB1にb
A1に何も入れなかったらc
とするようにはどうすればいいですか？

>>15
IFを使う
使い方はヘルプか前スレFAQ参照

>>14
ありあとうございます。
その方法があったんですね。

みんな、ｉｆ文のお勉強しようね

vlookupの検索が下記のようなパターンで上手くいきません。

　　　A　　　　　B　　　　C　　　　　D　　　　　E
１　検索内容　　　　　名前　　weight　　　VAT
2　organic　　　　　　orange　　 1000　　　200
3　　　　　　　　　　　　 apple　　10000　　　300
4　　　　　　　　　　　organic　 243500　　　400
5　　　　　　　　　　　omega　　100000　　　500
6　　　　　　　　　　　　ampan　　 3300　　　600
7　結果　　3300

　　B7=vlookup（A2,c1:e6,2）

結果は本来ならば24500なはずですが、誤動作しています。
原因と対策を教えてください。

>>19
どうやってもならないだろ
それと、データは昇順に整列してないとだめだ

×=vlookup（A2,c1:e6,2）
○=vlookup（A2,c1:e6,2,false）
昇順ソートしなくても､ちゃんと引数設定すれば問題ない。
つーかヘルプにも書いてあるんだからちゃんと読もうよ。

それと｢本来ならば｣なんて言葉は､関数の仕様も知らずに軽々しく使うな。
式が間違っている故に､希望通りの結果にならないだけで､式は本来通りの結果を返してるんだから。
本当に式が正しくて本来通りの結果を返さない場合はここで質問してもほとんど無意味だから。
そういうのはMSにバグ(本来の動作をしない部分)の修正のパッチをだしてもらわにゃならんからな。

ついでに24500なんてどこにもないぜw

言葉を知らない子だね、反感買うだけだよ
これじゃ君の知識がもったいない

>>20-21
レスサンクスです。引数指定でOKでした。

直後にこういうのが来ると
なんか22が哀れな子って感じだなw

お願いします。
エクセルでグラフを作る時に軸の設定で「表示形式」で「日付」とありますが、
項目の中に「年」のみの項目がありません。
「１９９０　１９９５　２０００　２００５年」でX軸を設定するにはどうしたら
よいのでしょうか？よろしくお願いします。

大変失礼しました。出来ました。申し訳ないです。

23のレスで救われたと勘違いしてる子がいるな

>>27
見苦しい

( ´,_ゝ`)ﾌﾟｯ 　
この子、確実に反応するな

そうだな
他人のふりしてまで
自分を擁護する奴と
同じくらい
確実に反応するな

両方消えてくれ

テンプレに付けくわえとけよ

・このスレにはテンプレ厨、馬鹿回答厨が住み着いています。
・24時間体制で俺SUGEEE回答を付けられる質問がこないかを
　待ち構えては俺SUGEEEと自分に酔っています。
・俺SUGEEEEEE的な回答をされても許してあげてください。
・下手に構うと自作自演のテンプレを使ったQ&A、質問者に
　なり済ましてのお礼レス等をつけはじめてうるさいです。
　無視にご協力を。

こういう場で相手を「子」と呼ぶのは違和感があるなあ。
まあ内容が伴っているから、さもありなん　なんだが。

エクセルの勉強するためにここに来て、他人の質問見て自分も勉強してる厨もいるよ
回答が初心者的でもしょうがないじゃない

関数についてご教授ください。
Ａ列とＢ列があって、各行のＡ列とＢ列の値が
いずれも○だった場合に数を数える関数は
どのようにしたらよいでしょうか？

>>34
配列数式かユーザー定義関数で。
使い方は自分で調べよう。

>>33
ﾉｼ

ありがとうございました。
=SUMPRODUCT((A:A="○")*(B:B="○"))
で出来そうです。

ドングリの背比べ

ｔｓｔ

朝から「挿入」とか「結合」とかいやらしい

ＦＡＱだからしかたない。

誰が(ry

基本的な質問ですがお願いします。
書式で「 #,### 」と「 #,##0 」はどう違うんでしょうか？

>>43
0.5未満の数値で､#,###は『』(空文字)になり#,##0は『0』になる

WINXPSP2 EXCEL2003にてセル内で郵便番号変換で入力できないのですが
どのように設定すれば入力できるようになるのでしょうか
たとえば111-1111を変換すると111-1111と１１１-１１１１の二つしか
選択肢に出てきません

他のソフトでは問題なく住所に変換されます

アドイン

>>45
> 他のソフトでは問題なく住所に変換されます
もう少しがんばろうね

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ

同一ブック内のシートの動きを同期？させることは可能ですか？
シート1を下にスクロールするとシート2も同じように下に動くとか
上下動だけでいいんですけど

>>47
現在コピーペーストで対処してるのですが
なかなかやりにくくて難儀しております

>>46
IMEにて変換入力をしたいのです

>>50
IME側の辞書や変換モードの設定辺りの問題かもね

>>45
嘘を言っちゃあイカン
他のソフトで　111-1111が、どのような住所に
問題なく変換されたのか報告して三田前。

Excelっていうか、IMEに郵便番号辞書を入れればいいんじゃね？

http://www.microsoft.com/downloads/details.aspx?FamilyID=6F6AF8EF-B9DD-4E21-9E63-AF4A0FF4E7CE&displaylang=ja

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

>>52
その数字は例としてあげただけです
>>53
IME用の辞書は導入済みです
>>54
エクセル上で単にIMEの住所変換するだけでそのアドオンが必ず必要ということでしょうか？

>>55
OfficeUpdateにいって落とせよ

Excel 郵便番号　で検索ぐらいしようね

俺も知りたい
アドオン無しだとIMEで住所変換できないのか?
別に自動的に住所を注入とかしなくて良いんだけど

たとえば、
A1に「FALSE」と表示されている場合だけ
A2に入力規制をかけたいときに
入力規制の項目の数式欄には
どのような数式を入れれば良いのでしょうか？


チェックボタンにチェックを入れた場合のみ、その隣のセルに書き込み可能にしたいのです。

アドバイスやらしくお願い致します！

>>59
いきなり
たとえば・・・って、オィ

すんません笑。

教えて頂けませんか？

>>61
お譲ちゃんはいったいどんなことをしたいのかな(*´Д`)ﾊｧﾊｧ

チェックボックスクリック時に
シートのホモとセルのロックを制御してやればできるでそ
>>1-3よんでね

んー…

入力規制のウィンドウを開かせたいので、
A1にFALSEが表示しているときのみ
A2にエラーメッセージが出るようにしたいです。

何度もすみません。

▼━ 答えやすい質問のしかた ━━━━━━━━━━━━━━━━
★1 質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。
▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 Windows**
【2 Excelのバージョン 　 】 Excel**
【3 VBAが使えるか　 　 .】 はい･いいえ
【4 VBAでの回答の可否】 可･否
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード


>>63
> んー…
> 入力規制のウィンドウを開かせたいので、
入力規制のウィンドウって何だよ

> A1にFALSEが表示しているときのみ
> A2にエラーメッセージが出るようにしたいです。
↓矛盾してねえか？
> A1に「FALSE」と表示されている場合だけ
> A2に入力規制をかけたいときに
> 入力規制の項目の数式欄には
> どのような数式を入れれば良いのでしょうか？
> チェックボタンにチェックを入れた場合のみ、その隣のセルに書き込み可能にしたいのです。

日本語でないと回答無理

>>63
お前がその嫌がるA2を無理やり選択して舌舐めずりしながら
入力規則のダイアログを開いて、「らめぇ」と泣き叫ぶA2の声を
無視しながら入力規則を「=OR(A1=FALSE,A1<>"")」としてやれば
あんなに嫌がっていたA2もA1がFALSEになるとなんでも受け
入れるように調教できるんじゃないでしょうか。僕には良くわか
りません。でも「らめぇ」はいいと思います。いえ、やっぱりわかりません。

あ、=AND(A1=FALSE,A1<>"")でした
ごめんなさい。でも「らめぇ」はやっぱりいいと思います
いえ、なんでもありません

お願いします

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 データの自動更新　セルの変更　ピボット

ピボットテーブルのデータ更新を
あるひとつのセルの変更のたびに自動で行えないでしょうか
変更するセルと、ピボットテーブルは別シートにあります

>>66
わー！出来ました！
本当にありがとうございます！
助かりました！

自分がわからない事は日本語じゃないんだなｗｗｗ

Ｅｘｃｅｌのグラフ作成をする際、凡例文字の編集ってできるんですか？

系列の名前でできます

>>65

肉まん吹いた。。。

初めて質問します。よろしくお願いします。

【1 OSの種類 　 　 　 　 .】 Windows xp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 最大値　検索　など

何百ものテストを何十人もの人が
受けた試験結果に対し、
そのテストの最高点を誰が出したのかを
テストごとに表示できるようにしたいと考えています。

テストの名称を行に、被験者の番号を列に配置し、
その交点のセルにそれぞれの得点を記入してあります。

ＭＡＸ関数でテストごとの最高得点を表示することはできますが、
誰がその最高得点を出したかを表示することができず
悩んでいます。

ＨＬＯＯＫＵＰ関数は数字が昇順や降順に
並んでいなければ使えないようですし。

なにか良いアイディアはないものでしょうか。
よろしくお願いします。

>>73
検索の型を設定する

>>74
お答え頂きありがとうございます。

ＨＬＯＯＫＵＰ関数の検索の型を
ＦＡＬＳＥにするということでしょうか？
やってみます。

マクロについて質問です。

With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=AND(BP20=TRUE,BP20<>"""")"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "注意！"
.InputMessage = ""
.ErrorMessage = "選択項目にチェックを入れてください"
.IMEMode = xlIMEModeNoControl
.ShowInput = False
.ShowError = True
End With

というマクロの
AND(BP20=TRUE,BP20<>"""")"
の部分の数字「20」を
マクロを指令するセルの行番号とリンクさせたいのですが
できますでしょうか？

【1 OSの種類 　 　 　 　 .】 Windows xp
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 少しぐらいならなんとか
【4 VBAでの回答の可否】 お願い

a列に日付が
2006/1/1
2006/1/2
2006/1/3

といった感じでだら〜と続いています。んで月の第2金曜日の時に
その横に*印を付けたいんですけど、VBAでどういう風に書けば良い
んでしょ。教えてください〜。

まず条件で金曜日出して
次にmonthの日数を7で割って答えが1の時にってやればいいんじゃない？

>>76
できます。
｢マクロを指令するセル｣というのが76のオレ用語で意味不明ですが､
文字列とプロパティを繋げたいときは&で。

"文字列" & Range().Row


>>77
とりあえず何日が第二金曜日になるかを出すのは､Weekday関数さえ使えば
あとはExcelもVBAも関係ない算数の問題なので自分で考えよう。
*を付ける方法は､日付がA列の1行目から入ってるなら
Rabge(第二金曜日の日付, 2).Value = "*"
横ってのが隣のセルってことではなく､日付文字列の横ってことなら話は別だが
その辺の情報は隠してるので､こっちも知らん。

>>78,79
あ、なるほど。
ありがとです〜

>>56
エクセル上で単にIMEの住所変換するだけでそのアドオンが必ず必要ということでしょうか？

http://www.uploda.net/cgi/uploader2/index.php?dlpas_id=0000020493.zip
ダウンロードパス：1

上記のようなシフト表を作っているのですが、19時まで残る人で、かつ出勤している人を
出勤人数のすぐ下のセルに入れたいのですが、どのような関数を入れれば可能なのか
思い浮かびません。印刷して渡す予定なので、出勤のところは空白のままにしておきたいです。

出勤のところを勤務時間によってマークをかえれば、countif関数ですぐ可能なのですが、
今回はどのようにしていいかわかりません。教えてください。よろしくお願いします。

わけのワカンネーやつが作ったファイルなんて気持ち悪くて
ダウンロードできねぇよ
>81
アドオン、アドオン、ってウルセーよ。自分で調べろ

>>83
あはは
お前実際に分からないのに何でこのスレに常駐してるんだ？

　　　Ａ　　　　Ｂ　　 Ｃ　　　　 Ｄ　　　　　　Ｅ
１りんご　　　　　　赤い　　　　橙　　　　　 緑
　みかん　　　　　 甘い　　酸っぱい　　水っぽい
　すいか　　

というデータが各セルに入っています
A１はリストでりんご・みかん・すいかが選択可能になっていて
B１には
データの入力規則でリストを指定し
元の値には
=INDIRECT(A1)と指定してあります

C列の『赤い・甘い』は挿入→名前→定義でりんご
D列は同様にみかん
E列はすいかと名前を定義してあります。

こうすることで
Ａ列でりんごを選択するとB列で赤い・甘いをリストから選択する事ができるのですが
A列でりんごを選択した後に、みかんを選択すると
A１にはみかんが表示されるのですが
B1には赤い・甘いのリストが表示されたままになってしまいます

ここで質問なのですが
Ａ１でリストから他のデータを選択したときにB1をクリアすることは可能なのでしょうか？

>>85
リストにはF1:F2を設定して
それがA1の値によってC1:E2を参照するようにしてはどうでしょう？

【1 OSの種類 　 　 　 　 .】 WindowsXP Pro
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 VBA ファイル出力 上書き確認

Private Sub CommandButton1_Click()
Const cnsTITLE = "ＣＳＶファイル出力処理"
Const cnsFILTER = "CSVファイル (*.csv;*.dat),*.csv;*.dat"
Dim xlAPP As Application
Dim intFF As String
Dim strFILENAME As String
Set xlAPP = Application
xlAPP.StatusBar = "出力するファイル名を指定して下さい。"
strFILENAME = xlAPP.GetSaveAsFilename(InitialFileName:="作成ファイル.csv", _
FileFilter:=cnsFILTER, Title:=cnsTITLE)
If StrConv(strFILENAME, vbUpperCase) = "FALSE" Then Exit Sub
intFF = FreeFile
Open strFILENAME For Output As #intFF
Dim a As String
a = Change()
Print #intFF, a
Close #intFF
xlAPP.StatusBar = False
MsgBox "ファイル出力が完了しました。"
End Sub

このように記述してファイルを出力しようとしています
同名のファイルがあった時に上書き確認を表示させたいのですが
どのようなコードをどこに追加すればよいのでしょうか？

Const cnsTITLE = "ＣＳＶファイル出力処理"
Const cnsFILTER = "CSVファイル (*.csv;*.dat),*.csv;*.dat"
Dim xlAPP As Application
Dim intFF As String
Dim strFILENAME As String
Dim flag As Integer
flag = 1

Set xlAPP = Application
xlAPP.StatusBar = "出力するファイル名を指定して下さい。"
strFILENAME = xlAPP.GetSaveAsFilename(InitialFileName:="作成ファイル.csv", _
FileFilter:=cnsFILTER, Title:=cnsTITLE)
If StrConv(strFILENAME, vbUpperCase) = "FALSE" Then Exit Sub
intFF = FreeFile
Set F = CreateObject("Scripting.FileSystemObject")
Target = strFILENAME
If F.FileExists(strFILENAME) Then
If MsgBox("上書きする？", vbYesNo) = vbYes Then
flag = 1
Else:
flag = 0
End If
End If

If flag = 1 Then
Open strFILENAME For Output As #intFF
Dim a As String
Print #intFF, 1
Close #intFF
xlAPP.StatusBar = False
MsgBox "ファイル出力が完了しました。"
End If

Target = strFILENAME は意味無いんで消しといてください…。
これコピペ改変でし。
ttp://www.officetanaka.net/excel/vba/filesystemobject/filesystemobject.htm

>>88
>>89
回答ありがとうございました
早速試してみようと思います。

>>84
暇つぶしだよ

>>79
=AND(BP20=TRUE,BP20<>"""")"
の部分を
=AND(BP&Range().Row=TRUE,BP&Range().Row<>"""")"
としてみましたがエラーが出てしまいました。

マクロの指令を出すときに、選択されているセルの行番号と
マクロのなかのBPのあとの行番号をリンクさせたいのです。

再度、アドバイスお願いいたします。

>>56
エクセル上で単にIMEで住所変換するだけでもそのアドオンが必要なのでしょうか?

教えてください。今マクロやってるんですけど、マクロで記憶したやつの流れを
を繰り返したいんですけど、わかる人いますか？

教えてください。今マクロやってるんですけど、マクロで記憶したやつの流れを
を繰り返したいんですけど、わかる人いますか？

よろしくお願いいたします。

【1 OSの種類 　 　 　 　 .】 Windows　XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 excel タブ 多段

excelで請求書管理をしているのですが、シート数が多く（一画面に入りきらない）
なりすぎて難儀しています。
タブを多段にすることか可能でしょうか？
また、そのように対応できるソフト等があれば教えてください。

>>93
第一点　IMEだけではどこのIMEか分からん　どのIME使ってるか指定しろ
第二点　辞書を所持していてもセットに組み込んで読み出せる状態でないなら使えない
第三点　ATOKなら補助変換だが、読みは全角で入れないと変換できない。

半角英数固定から始めても変換可能みたいだよ、スレ違いみたいだけど。

エクセル２００３を使って住所録を作成しているのですが、
１つのセルに文字数制限をつけて、
さらに住所の番地を半角を入力しても全角になるようにしたいのですが、
入力規則のところで簡単にできないでしょうか？
お願いします。

例：●●市●●町5番地1-1　→　●●市●●町５番地１−１

↑こんな感じに変換できて、さらに文字数制限が出来ればいいのですが・・・。

【1 OSの種類 　 　 　 　 .】 Windows98
【2 Excelのバージョン 　 】 Excel97
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

【質問】マクロが終了するまで「処理中です。暫らくお待ち下さい」と表示できるようにしたい。

現在複数のブックから値をコピーして、集計用のブックに値を張付けるマクロを組んでるのですが
画面がチカチカして気分が悪くなることがあります。
とりあえずコードの最初と最後に画面の最小化と最大化で表示しないようにしたのですが

「処理中です。暫らくお待ち下さい」みたいな形で別の画面を表示させておくことはできないでしょうか？

わかる方がいらっしゃったらよろしくお願いします。

Sub 集計変換マクロ()
Application.WindowState = xlMinimized

集計変換処理

Application.WindowState = xlMaximized
MsgBox ("集計変換が終了しました。" & vbCrLf & "CSVファイル名" & ALL_DAT & "です。")
End Sub

複数のセル毎に、一つの文字しか入力できないようにするため、

入力規制→ユーザー設定→「=COUNTA($A1:$A4)=1」

と設定しているのですが、
この作業を合計100以上行いたいのです。

この方法だと、いちいちセル範囲を書き換えていかなければならないですし、
マクロを組んだ場合、
「=COUNTA($A1:$A4)=1」のセル範囲をどのように書き換えれば
スムーズに行えるでしょうか？

>>87
MSIMEです
辞書は有効になってますテキストエディタで確認キチンと変換出来ます
エクセルだけで変換不能

追加です
全角入力にて作業してます

>100
フツーに処理の始めにUserFormXX.Show終わったら.Hideで良いんでね。
（ShowModalプロパティはFalseに汁）
それと、チカチカするのはコピーしてペーストしているからだと思う。
ペースト先＝コピー元　で直接代入すればチカチカしない。

>>101
入力規制→文字列→文字数を「１以下」でいいんじゃね？

>>101
面倒だが、１行目から４行目までは１行づつ設定しなければならない。
あとは４行選択して、下へオートフィル。

>>104
両方組み込んでみて試してみます。
回答ありがとうございました。

>>100
セルデータ直はもちろんだが
サブルーチンの最初に
Apprication.Screenupdating = False
は入れているよな？

エクセルの関数で例えば、数値がA　A　A　Aなら１　A　A　A　Bなら２
A　A　A　Cなら１と言ったようにAとBとCの個数によって返す値を変える
ようにするにはどのような関数になりますか。色々と試してみたのですが
出来ません。教えてください。

>>99
別セルでいいなら、=JIS(セルを指定)で全角にできる。
入力規則じゃたぶん無理
ってかテンプレ嫁

>>109
> どのような関数になりますか。
文字列解析と条件分岐と演算。

意味不明な例だけで､仕様を一切書いてないから
あとはご自分で考えましょう。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
例が悪くて申し訳ありません。　例えば、AAAAというAの個数が４個なら
点数が５点　AABBという組み合わせなら４点　ABBCという組み合わせなら３点
といったように複数のセルの中にあるA,B,Cの組み合わせによって返す値を
変える関数がわかりません。教えていただければ幸いです。説明が悪くて
申し訳ありません。

>>101
管理維持が大変だから単純に入力規則を設定するのをマクロでやりたいのなら
対象列・列の開始行・列の終了行を配列で指定して変数で文字列を生成する
"A1:A4"の部分を生成
"=COUNTA($A$1:$A$4)=1"の部分を生成

単純羅列なら
With Range("A1:A4").Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=COUNTA($A$1:$A$4)=1"
End With

>>112
>>3★注意1

注意とか以前にどういう基準で点が付くのかわからん

>>109の頭の中では厳然としたルールがあるんだろう　www

とんちなのか
1+1=3

>>96
多段はしらないけど
シート名の左側の三角をShift+右クリ

VBAが可なら簡易メニュー的なシートを一つ作って選択できるようにすれば？
複雑なのは無理としても、これは単純だから便利だお

フォームのボタンか図形にマクロ指定して
Sub 伝票１_Select()
Sheets("伝票１").Select
End Sub

エクセルでセルに
1億と入っていたら
数値化するにはどうしたらいいですか?
1億なら100000000としたいのですが

A30に=concatenate("TOTAL/",counta(A1:A29))
みたいに入ってるんだけど、
このtotal行、３０の時もあれば、５０の時もある、
を検索させて.rowの値を変数 ttlに入れたいのです。

どのように書けばよいでしょうか？

>>119
置換で"億”を00,000,000に変えてみたら全部いっぺんにかわるのかな？

でも単なる置換じゃうまくいかなさそう

おそらくVBAでセルに億って入ってるのを検索して、億を””に置換して
１億倍の数字を掛けるみたいな、そしてそのセルの書式を”億”に変えるみたいな。
そうすると元通りにも出来るし、全部数字で10000000みたいにも出来るみたいな。
マクロなら一発だろうけど、俺みたいな馬鹿にはわからん。

セルのプロパティで同じようにロック設定をしても
シート保護をした際にロックできているセルと
ロックできないセルがあります。なぜでしょうか。

OSはXPsp2でexcel2003です。
シート印刷時にページが複数枚になる場合
「ファイル」→「ページ設定」で「シート」の「列のタイトル」に
表示したい列を書けば全ページで反映されますが、これを特定のページのみ無くしたい場合はどうすれば良いでしょうか？
例えば3枚印刷のうち2枚目だけ反映されないようにする事って出来ますか？
よろしくお願いします。

UserFormで指示画面つくってマクロで印刷

ワンペア・・・３点
ツーペア・・・４点
フォーカード・・・５点
違うかなぁ

【1 OSの種類 　 　 　 .】 Windows XP
【2 Excelのバージョン .】 Excel 2002 SP3
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否 】 可
【5 検索キーワード 　 　】 VBA マクロ　カット　ペースト

全角五文字が入ってるセルを選択して実行すると、最初の三文字をそのセルに残して
残りの二文字をカットして右隣のセルにペーストするマクロを作りたいのですが、
ＶＢＡ初心者のため分かりません。どうかよろしくお願いします。

>>127
右隣のセル.Value = Mid(そのセル.Value, 4)
そのセル.Value = Left(そのセル.Value, 3)

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

データをエクセルに変換した際に日付が
20060825
20060826
20060827
(↑文字列から数値の変更はできます。)
としか変換できないのですが、これを一括で
180825
180826
180827
もしくは
060825
060826
060827
のように変換できる関数は無いのでしょうか？

>>129
20060825 → 180825 なら、1880000をマイナスする。
20060825 → 060825 なら、2000000をマイナスして、text関数で書式指定

1880000は19880000だった。

ＶＬＯＯＫＵＰとＨＬＯＯＫＵＰでＦＡＬＳＥとＴＲＵＥの使い分けの方法がわかりません。
参考書とかぐぐったりしたけど、理解できなくて・・・
一目瞭然簡単な使い分け方を教えてください！

>>129-131
全部text関数で出来る。

A1に変換対象の日付データがあるとして
060825 にするには　=TEXT(A1,"yymmdd")
180825 にするには　=TEXT(A1,"eemmdd")

>>130>>131>>133
ありがとうございました。

【1 OSの種類 　 　 　 　 .】 WindowsXPhome
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 excel グラフ　2変数

(1,20), (5,25), (20,30), (50,60)の4点を結ぶ折れ線描くにはどうすればいいのでしょうか。
1,5,20,50
20,25,30,60
を選択して折れ線を書くと横軸が一定(1,2,3,4)で2本の折れ線ができてしまうのですが。

VBAでしか実現できないのであれば、VBAでもかまいません。

>>135
グラフの種類を「データポイントを結んだ散布図」とかにすればいいんじゃね？

>>132
完全に一致する値しか許さないのがfalse
近い値でもまあいいか、と許すのがtrue

>>123
新しいブックでもそうなるならExcel再インストロールしたほうがいいかも
そのブックのそのセル範囲だけだったらどっかに違いあるんじゃないの

>>120
たぶんセルA1選んで[ctrl]+[↓]で選べる範囲だろうから、
そうすると
ttl=range("A1").end(xldown).row
でいいんじゃね？

>>125
マクロとかあまりわからないので、もっと簡単にやる方法ってないでしょうか？
シートが10枚くらいあり印刷時のサイズなどは一緒なのですが、
列を表示する、しないはシート毎に異なるので
出来ればそれに対応出来る機能ってないんでしょうか？
シート１は2枚目だけなし。シート2は3枚目だけなしって感じです
よろしくお願いします。

ないのう。
紙のほうに新聞紙でも貼るしかないのう。

それかいったん無しで印刷して、あとからもう一度
その紙に見出しだけ印刷するとかかのう。

>>136
出来ました。
ありがとうございます！

>>118
VBAは全くいぢったことがありませんが、便利そうなので頑張って
勉強してみます。
ありがとうございました。

>>104 >>108
昨日は回答ありがとうございました。
でもエクセルのバージョン97と古いためか両方ともできませんでした。

104さんの
>>（ShowModalプロパティはFalseに汁）
なんですがエクセル97のユーザーフォームプロパティの動作項目にはShowModalが存在せず

108さんの
>>Apprication.Screenupdating = False
コードの頭に持ってきたのですが反応せず、本当に命令が実行されてるか

Apprication.Screenupdating = False
stop

と止めてコード上にマウスを当てて値がどうなってるか確認したのですがtureと何故か表示されます

現在の状態
Sub 集計変換マクロ()
Application.ScreenUpdating = False
Stop
'Application.WindowState = xlMinimized
UserForm1.Show

集計変換処理

UserForm1.Hide
Application.ScreenUpdating = True
'Application.WindowState = xlMaximized
MsgBox ("集計変換が終了しました。" & vbCrLf & "CSVファイル名" & ALL_DAT & "です。")
End Sub
会社の環境では97を使うしかなく他に回避方法がありましたらよろしくおねがいします。

>>137
falseとtrueの件、ありがとうございました！

数式の入った列をコピーして挿入すると、
数式が参照するセルもズレてしまいます。
形式を選択で数式を選択してもズレてしまいます。
ズレないようにペーストする方法はありますでしょうか。

>144
UserForm使った方がアプリっぽくてｶｯｸｲｲかなと思っただけで、
別にエクセルのシートに「只今処理中。。。」とか書いといて
それをＭＡＸ表示（コピー元コピー先はＭＩＮ表示）
しておけば同じ訳で、ScreenUpdatingは、ﾁｯﾄは速くなるだろ
というオマジナイだから、要はコピーするたんびに
ActivateとかSelectionとか使わなければ桶。

>>146
絶対参照と相対参照を調べなさい

【1 OSの種類 　 　 　 　 .】 WindowsMe
【2 Excelのバージョン 　 】 ??どうやって調べるのかわかりません。。ごめんなさい。
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

簡単な表を作って各セルの書式や計算式を設定しました。
表の右端のセルでエンターを押すと自動的に次の行ができて、
次の行の左端のセルに移動するように設定するにはどうしたらよいのでしょうか？？

よろしくお願いします。

>>148
（1）
数式が入力されてるセルをオートフィルしたいのです。
$A$10 というようにしてしまうと、オートフィルしたときに
$10 の方が$11 にならないのでこれは困ってしまうのです。

(2)
ちなみにオートフィル機能をショートカットで使う方法はありますでしょうか。
Excel ショートカット オートフィル　でぐぐったのですがわかりませんでした。

指の関節が腱鞘炎になりかけていて、キー入力はまだいいのですが、
マウスのボタン操作が痛いのです。
（1）(2)がわかるとかなりありがたいのですが。
よろしくお願いいたします

>>150
絶対参照と相対参照を調べりゃスグわかる
　＄　←　これがポイント

>>150
1.$A10
2.Alt+E > I > S か マクロ

>>152
ありがとうございます！

> 1.$A10
灯台下暗しでした。わからずに時間ばかり経ってしまっていました。

> 2.Alt+E > I > S か マクロ
メニューとか殆ど使ったことがなかったので、ググってしまいました。
メニューを注意深くみればよかったのですね。すいません。
マウスを掴む回数が減ると本当に助かります。
本当にありがとうございます

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

100円+200円＝300円というような
文字を含んだセルの、数字部分の足し算をすることはできないでしょうか？

指定したセルから数字を抜き出し、計算した後その数字を返し単位をつける・・・
とか考えたのですが思うようにいきません。

実際の作業の中では、相手から受け取ったデータを計算して出力するという流れです。

>>149
自動的に罫線を引きたいの？（あるいは書式を設定しないの？）

>>155
自動的に罫線も引きたいですし、書式も引き継いでほしいです。
一つ上の行の書式や計算式を引き継いだ行が自動的に増えるようにしたいのです。
わかりにくくてすみません。

>>154
ユーザー書式設定で
#,##0"円"
では？

>>156
入力前に余分にオートフィルやコピペしとけばいいんじゃないの？

＞157
相手から受け取ったデータには、円をつけて入力してあり
自分はそれらの値を整理して合計を出して送り返します。
そこで、作業を単純化するために関数を入力したシートを用意し
受け取ったデータを貼り付けたら合計が出るようにしました。
数字のみであれば合計した金額が出るのですが、円などの文字列が
あったら空白のままになってしまいます。
ユーザー定義で、単位を設定してみましたが無理でした。

うまく説明できなくてすみません。

>>158
では、"円"を置換して全て消してはどうですか？
その上で"円"がいるのであれば、書式設定で #,##0"円" にすればいいかと。

>>158
LEFTとFINDで数字だけ抜き出せ

データの張り付けをしようとしたとき、『クリップボードを空にできません』というメッセージがでて張り付けることができません。どうしたら解決できるかおわかりになる方いましたら教えてください。

>>161
会社でそういう状況になったのですか？
それとも今その状況なのですか？
PC立ち上げ直してもダメですか？

>>141
遅くなりましたがありがとうございます。
わかりました。

結合してしまったA1,A2のセルを上下に分割するときはどうすればよいですか？

解除すればいいと思うけど・・

言い方が悪かったです。
A1のセルをA1,A2のように上下に分割するときはどうすればよいですか？

B1とB2、C1とC2・・・・A以外を必要なだけ結合
1行目と2行目の行の高さを半分
でいいのかな？

すみません、ひとつのエクセルファイルの中で2個のワークシートを使っているのですが、
一枚目のワークシート(Worksheet1)に二枚目のワークシート(Worksheet2)のひとつのセルを
同期させたいのですが・・・。

同一ワークシート内では
=B19
などと書けばいいのだと思うのですが、別のワークシートのセルを持ってくるにはどういう風にすればいいのでしょうか？
お願いします。

>>168
=を押したあとに下のタブでワークシートを切り替えてセルを選択したらわかる。

>>157
そうします。
ありがとうございました。

>>154
数字の抽出
=LEFT(A1,LEN(A1)*10-SUM(LEN(SUBSTITUTE(A1,{0,1,2,3,4,5,6,7,8,9},))))

計算結果に単位を付ける
数式でする場合　：　A1+B1&"円"
書式設定の場合　：　0"円"とか#,##0"円"

【1 OSの種類 　 　 　 　 .】 Windows2000またはxp
【2 Excelのバージョン 　 】 Excel2000または2003
【5 検索キーワード 　 　 】 Yahoo 地図情報 貼り付け HTML形式

Yahoo地図情報の地図をコピーしてExcel(2000/2003)上にペーストすると
表示されている図を選択できなくなり、移動や削除が出来ないのですが、何故でしょう。
「形式を選択して貼り付け」で、ビットマップを選べば大丈夫なんですが
HTMLがデフォルトになっているみたいで、これで貼り付けをすると前述の症状になります。
ちなみにWordで同じ操作をしても、きちんと削除できます。

整理するとこんな感じです。
Yahoo地図情報の地図画像　→　HTML形式でExcelに貼り付け = 削除不可
それ以外の画像　→　HTML形式でExcelに貼り付け = 削除可
Yahoo地図情報の地図画像　→　HTML形式でWordに貼り付け = 削除可

面白い事に気がついたね、今までもこんな症状あったのかな
オレはいつもBMPで貼り付けてたから関係ないわ
それじゃ、お元気で！

>>172
普通に貼り付けると「HTMLImageコントロール」っていう普通の
画像とは違う物として認識されるみたい。これってVBAで使う
Pictureコントロールのweb対応版って感じの奴なのね。
初めて知った。

だからふつうの操作だと選択できなくなる。Pictureコントロールも
おんなじ。ってことは、Pictureコントロールを移動させたりする
時と同じように、「デザインモード」にしてあげると選択とか削除も
できるよ。

デザインモードへの移行は[ツール]-[ユーザー設定]で
[デザインモードの終了]出して、そのボタンで切り替えられるよ。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 マクロを切り張りするぐらい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 vba 選択範囲
・やりたいこと
選択しているセルが、特定の範囲内の場合(B2:E5)にマクロを実行すると、そのセルを赤なる。

ttp://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page6.htm
選択範囲についての解説はありますが、選択範囲の条件は(よくわかんなかった・・)
試しにで作ってみたけど動作せず
If ActiveCell >= Range("B2:E5") Then
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If
End Sub

おねがいします。

>>174
ふつうの操作だと選択できなくなるというよりは
イベントを拾うようになるだけなんだがね。


>>175
Row､Rows.Count､Column､Columns.Count等で条件分岐､
又は､Intersectの戻り値判定

それと試すのもいいが､当てずっぽうは止めとけ。
試すんなら､少しは調べて多少なりとも根拠のもてる方法を試せ。
オマエはその1行目の条件式､オブジェクトのメンバも指定せず
不等式を書いた意味を説明出来るのか？

Sub aaa()
Target = ActiveWindow.RangeSelection.Address
Set IRe = Application.Intersect(Range(Target), ActiveSheet.Range("b2:e5"))
If IRe Is Nothing Then
Else
　With IRe.Interior
　　.ColorIndex = 3
　　.Pattern = xlSolid
　End With
End If
End Sub

>>174
デザインモードで出来ました。
ちょっと複雑に作り込んだシートにうっかり貼ってしまって
地図以外のすべてを他のシートにコピペして凌いでいたのですが
解決方法がわかって助かりました。
ありがとうございます。

指定した範囲から特定の値を検索し、それに一致したセルの数を返すにはどのようにすればよろしいでしょうか？

例：
0 1 1 1 0 0 0(A1〜G1と仮定します)

0の数・・・4(←ここをどう処理するか)
1の数・・・3


よろしくお願いします。

>>179
countifじゃ駄目なん？

>>180
解決しました。ありがとうございました。

ステータスバーの上のファンクションキーの説明バー？が消えてしまったんですけど、
どうすればまた表示させられるのでしょう？
EXCEL2003です。

オススメの問題集ってないですか・・・？

FOM

EXCEL2000での質問なんですが

A1のセルに、ある数字が入っているとして
B1:C3の範囲の中で、A1の数字より大きいものの個数を
探すにはどうしたらいいでしょうか。

=COUNTIF(B1:C3,">A1")という式を作ったのですが
検索条件にはセルの参照ができないようで困ってます。

EXCEL2003での質問です。

ピボットテーブルのタブをリストのタブみたいにいろいろ検索条件を
指定できる方法なかと？

Excel2003をXP2でつかっています。
突然エクセルを起動しようとすると
メモリが不足しています。他のアプリケーションを終了してからもう一度行ってください。
とエラーメッセージが出て起動できません。
VBAのあるなし関係なくシートから起動しようとしても
本体からもどちらも無理です。
メモリ自体は（これまでも同じ環境だったので）十分あまっているようなのですが・・・
検索もしてみましたが同じような状況のものは見つかりませんでした。
どうしたらよいのか・・・どなたか教えてください！

>>185
検索条件にはセルの参照ができないのではなく
検索条件でセルの参照を使う方法が解ってないだけ。

A1は文字列ではなく参照なんだから､文字列を指定するための""で囲っちゃダメ。
そして文字列､参照､数式の戻り値などといった別々の値を連結する場合は&。


>>186
VBAで出来ますよ。&>>3★注意1


>>187
>>2･6

まあ物理的に問題があったらOSすら起動できないだろうから､
おかしくなってるのはシステムだけで､OS再インスコすれば直ると思うが。
それが嫌なら>>2にあるとおりMSに聞いて。

>>188
でも""をつけないとエラーになるんですが・・・
非常に困っています。

>>189
君が間違ってなければエラーにはならないよ。
もしかして=COUNTIF(B1:C3,>A1)とかやってるんじゃないの?

俺は｢A1｣を参照として使いたいなら｢A1｣の""を外せとは言ったが
｢>｣の""まで外せと言った覚えは無いぞ。ちゃんと連結の仕方も書いたし。

横槍スマソ
俺も苦労した事があるんだわこれ
簡単なようで実は結構高度な知識だと思う
=COUNTIF(B1:C3,">"&A1)

うおお。。。できました。
>>190>>191ありがとうございます。
EXCELの本やネットで調べたんですが、載ってなかったです…
>>191さんに答えを書いてもらわないと、わからなかったかと思います…

なにせ　=IF(B6>10,"あ","い")　みたいなものは成立するものですから
なぜCOUNTIFでは連結する必要があるのか、よくわかりません。。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 rank small

A1=1.1
A2=-0.9
A3=1.3
のとき、A1:A3の中で2番目に小さい値は
=SMALL(A1:C1,2)
で求まるのですが、A1^2, A2^2, A3^2の中で２番に小さい値を求めるには
どのように入力すればいいのでしょうか。

可能であればA1^2, A2^2,...,Ak^2の中で2番目に小さな値を求める
式を教えてください。

>>193
=SMALL(A1:C1^2,2)と入力して[ctrl]+[shift]+[enter]で
配列数式にすればいけるよ。
{=SMALL(A1:C1^2,2)}こんな感じになる。

>>194
出来ました！
ありがとうございます！

配列数式にしなくても=SMALL(A1:A3,2)^2でいいじゃん。
正数の二乗なら､対象値の順位は^2の前でも後でも変わらないだろ。

>>196
負の数も含むのでそのやり方だとうまくいかなかったです。

>>194を使って、A1^2が2番目に小さいときに色をつけるために
条件付き書式設定で

数式が　=A1^2={SMALL(A1:A3^2,2)}

としたのですが、エラーになってしまいます。

もっと一般的に (A1-1)^2, (A2-1)^2,...(Ak-1)^2の中で2番目に小さい数値に
色をつける方法を教えてください。

>>193が分れば自分で出来ると思ったのですが、うまくいかないのでお願いします。
情報が小出しで申し訳ないです。
やりたいことは、A1,...,Akの中で1との誤差が2番目に小さいものを知りたいです。

>>197
配列数式の答えをどこかのセルに出しておいて、
条件付き書式はそのセルの値と同じだったら色を付ければいいんでない？

またまた条件後出しで､作業セルは使いたくないとか言い出しそう。

というか､>>197の式､{ }を外して参照をきちんとすれば､､､

>>198
ありがとうございます。
A1^2, A2^2,...,Ak^2の中で2番目に小さな値についてはそのやり方で出来ました。

(A1-1)^2, (A2-1)^2,...(Ak-1)^2の中で2番目に小さな値を求めるための
配列数式はどうすればいいのでしょうか。

>>199
作業セルを使ってもかまいません。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

文字列同士で２つのセルの文字を合体させたいのですが可能でしょうか？
また、その文字間のスペースを取り除くことは可能でしょうか？

例）
ｾﾙA1　東京都　豊島区
ｾﾙB1　池袋　1-1

だとA1とB1を合わせて最終的に
東京都豊島区池袋1-1

という風にしたいのですが・・・

>>202に追記で申し訳ありませんが
何千行もあるので一気にできる方法があれば
教えて頂きたいのでお願い致します。

=SUBSTITUTE(A1&B1,"　","")

>>204
ご回答ありがとうございます。
A1とB1の文字は合体させることができましたが、
A1の「東京都」と「豊島区」　B1の「池袋」と「1-1」の間のスペースを
消す方法はないのでしょうか？

>>203
=CONCATENATE(TRIM(SUBSTITUTE(SUBSTITUTE(A1,"_",""),"＿","")),TRIM(SUBSTITUTE(SUBSTITUTE(B1,"_",""),"＿","")))

アンダーバー（ _ と ＿ ）は、それぞれ半角スペースと全角スペースに置き換えること。

=CONCATENATE(A,B)
　　　AとBを結合

=TRIM(SUBSTITUTE(A,"あ","い"))
　　　セルAの中の「あ」を「い」に置き換える
　　↓応用
=TRIM(SUBSTITUTE(SUBSTITUTE(A,"あ","い"),"う","え")))
　　　セルAの中の「あ」を「い」に置き換え、更に、「う」を「え」に置き換える

>>206
大変助かりました。ありがとうございました。

失敬、これでいけたわ。>>204横からサンクス

=SUBSTITUTE(SUBSTITUTE(A1&B1," ",""),"　","")

>>207>>209
解説付で勉強になりました。ありがとうございました。

>>205
＞202の例でスペースが取り除かれるのを確認してから書き込んでいる。
それ以上の後乗せサクサク条件は、知らん。

【1 OSの種類 　 　 　 　 .】 Windows98とXP
【2 Excelのバージョン 　 】 Excel97と2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel 文字列　結合　不特定、Excel 文字列　結合

202の方と似ているのですが、
2つだけでなく行の文字列全てを結合させる事は出来ませんか？

　Ａ　Ｂ　Ｃ　Ｄ　Ｅ　Ｆ　Ｇ
1 あ　　　い　う　　　え　お

上の様にシート1の1行目に不規則に入っている文字列(今後増える予定有)を
A1だけを無視してシート2のA1に一括表示させたいです。
(例だと"いうえお"と表示される事になります)

ここでは簡略化していますが、
本来の文字列は英数字・漢字・ひらがな・カタカナ全て混ざった物で、
A1に入る物は合計や商品名のような特定の題字になります。

出来ればお願いします。

=CONCATENATE(B,C,D,E,F,G)

Aを対象に入れなければ良いだけかと。

>>212
>>5
> ★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法)
> 　▼数式･関数
> 　 ･ 範囲を引数にしての文字列連結 (ユーザー定義関数)

ここに書いて有るとおり､｢行｣という範囲を指定しての結合はVBA使わないと出来ない。
因って君のVBA否という条件では､回答は｢不可能｣だ。

範囲ではなく一つ一つを結合していけば､結果としてはお望みの形になるがな。
=CONCATENATE(B1,C1,D1,E1,F1,G1)
=B1&C1&D1&E1&F1&G1
これでもちゃんと"いうえお"と表示されるはず。

>>212
めんどくさくてケツ毛がすべて白髪になる程の量じゃなければ
CONCATENATE関数で地道につないでけばいいんじゃない？
シート1のAA1にでも
=CONCATENATE(B1,C1,D1,E1,F1,G1,H1,...Z1)
とかして、シート2のA1には
=Sheet1!AA1
とかすればそれほど見にくくもないんじゃないかな

ありがとうございます。
今はまだ量が少ないのですが、今後3ケタ以上に増えて行く予定なので
一括で出来たらよかったと思ったのですが、作業列が無いと無理みたいですね…。
増えて行く毎に地道に頑張ります。

100のセルに対しては99の計算セル（2つは手入力、残りの97つは数式のコピペ）でいけるが、それでやるかい？
労力は少なくて済むけど、スマートじゃない。


A　B　C　D　E・・・・・・V　W　X　Y・・・・

V に・・・　＝(B&C)
W に・・・　＝(V&D)
X に・・・　＝(W&E)　←Wの数式をコピペ、以下同じ

>>212
Sheet2のA1に =IV1、A2に =""&Sheet1!B1、 A3に =B1&Sheet1!C1
A3を選択してIV1までオートフィル。
１行目を選択して、好きな行数だけコピペ。

ただしメモリ不足になっても関知しない。

エクセルの棒グラフをWEB保存し、gifファイルにしますが
かなり圧縮されているためでしょうか、グラデーション部分が
非常に汚い画像として保存されてしまいます。
棒グラフを、もう少し綺麗な画像で保存、もしくはjpgでの保存は
出来ないのでしょうか？
どなたかご存知の方、ご教授お願い致します。

>>219
webページを保存するときの[名前を付けて保存]ダイアログの右上の方に
[ツール]ってとこがあるので、そこから[webオプション]ってのを選んで、
[ブラウザ]タブの[オプション]の「PNGをグラフィック形式として使用する」
にチェッキングすればPNGで書き出せるよ。
必要なぐらひくフィルタの入ってるExcel2003の話なのだけれどもね。

220様
ご指南の通りに行いましたら問題解決しました。
大変有難う御座います。

これを書くと答えが得られやすい

マルチなのは承知の上教えていただけたらと思います。
マルチなのは承知の上教えていただけたらと思います。
マルチなのは承知の上教えていただけたらと思います。

uzee

最近使い始めたので、説明ができないのですが、
あるセルの数値を変更した時に、その隣のセルに変更した日付を自動的に更新
するようにはできませんか？
そのセルをいつ更新したかを管理したいのでお願い致します。

できます

225様
どのように手順で行えばよいのでしょうか？
宜しくお願いします。

>>226
隣のセルにやらないといけないかは知らないけど
『ツールー変更箇所の記録』
て機能があるよ、変更したら自動的に日付とコメントが入る

=COUNTIF(A$1: A$11,">10")
=COUNTIF(A$1: A$11,">20")
=COUNTIF(A$1: A$11,">30")

〜

=COUNTIF(A$1: A$11,">300")

という連続したセルを作りたいのですが、
">10"の部分がオートフィルしても">10"のままで変わらないのですが、
手入力しないとダメでしょうか

>>191　を今読みました。別セルに連番振って参照でやってみます。すいません

余りってどうやって計算するの？
たとえば
８を３でわったときの余りは２なんわけだけどどうするの？

MOD(8,3)

遅いのにありがとうございます。

>>226
コメントでよければ>>227さんの方法で。
あくまで隣のセルに表示したいのであればVBAを使う

> 最近使い始めたので、説明ができないのですが、
これが気になるが、

シート名のタブを右クリ＞コードの表示
以下のコードを貼り付けて、A列の内容を変更するとB列に今日の日付が表示されます。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then '1はA列
Target.Offset(, 1).Value = Date '1は変更したセルの1つ右隣
End If
End Sub

227様
233様
ありがとうございます。少し難しそうでが、やってみます。
ご説明ありがとうございました。

>>228
頭にｱﾎﾟｽﾄﾛﾌｨｰを付けて文字列として入力
データ→区切り位置→完了

>>235
すご・・・
EXCELはコツ覚えたら、いろいろできて楽しそう。

【1 OSの種類 　 　 　 　 .】 Windows98
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　コンボボックス　コントロールタブ
　
　初めまして宜しくお願いします。
　質問：コンボボックスのコントロールの書式設定のタブにコントロールのタブが
　　　　ないので、入力範囲が選択できずデータがコンボボックスに、入りません。
　　　　どうすれば、コンボボックスにデータを入れられるのでしょうか？
　　　　ご教授願います。

Vistaで、Excel2000/2003は動作しそうですか？
また、Excel2000/2003から2007に移行する場合、既存のVBAプログラムは
大幅に書き直す必要がありますか？

>>237
プロパティのListFillRange

フォームツールではなくコントロールツールの方は
本当はVBAから使う物なので､AddItemで追加するのが基本だがな。
初心者向けにListFillRangeとかLinkedCellとかのプロパティもある。


>>238
>>2･6
そういう動作環境とか互換性とかはMSに聞いて。
その辺の情報が公開されてるなら､自分で調べればいいだけだが
公開されてないから聞きに来たんだろうし､公開されてないならMS以外誰が知ってるってんだ？
まあ､どちらもほぼ答えは確定しているがな。

【1 OSの種類 　 　 　 　 .】 WindowsXPpro2002 SP2
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 文字数制限

多くの文字が入力されたセルを別のブックへリンクする際、元となるブックが
開いている間は問題ないのですが、元のブックが閉じている場合は、全角２５５
文字しか表示されません。ただし、そうなってからでも元のブックを開けば、
２５６文字目以降も表示されます。
これでは意味がないのですが・・・。
リンク元のブックが閉じていても、一つのセルで２５５文字超表示させるように
するにはどうしたら良いのでしょうか？
ご教授下さい。お願いします。

>>240
CreateObjectでExcel.Applicationのインスタンス作ってそっちから値を取得する。
厳密に言えば内部的にブックを開いてることになるが､表示は一切されないし､
開かないと256文字以上取得出来ない仕様なんだから仕方ない。

すみません…
12シート分の個人情報を集計しているのですが。
一人一人に決まった有効期限があり、その有効期限で人数を集計したいのですがよくわかりません…。
例えば８月１日〜３１日までの有効期限の人数を確認したい場合はどうしたらいいのですか？
すみませんがよろしくお願いします

MSのExcel2003関連ページを見ても、Vistaについては書いてない感じです。
βで動かした人の情報があれば、うれしいです。

また、Excel2007βで下位バージョンVBAの移行テストした方の
情報を教えて頂ければと思い、カキコいたしました

（省略されました・・全てを読むにはここを押してください）

「ここ」を押しても空白だけだとちょっと、ムッとします。

>>242
具体例を書いて答えやすくしなさい

>>241
そうですか、やはり仕様なのですね。
教えていただいた方法でやってみます。
アクセスからデータを飛ばしてまして・・・。
同時に他の方法も考えてみます。
ありがとうございました。

無駄な改行なんてするから
いじわるな答え方されるんだよ

001、002・・・・という順番に列をしたいのですが可能でしょうか？
excel2003使用です

テンプレ嫁

>>249
読んだけど、使用ＯＳとか関係ないし、
質問用テンプレは使わなくてよい、と書いてるじゃない

それでも、ダメならメンドいからよその板できくよ

＞001、002・・・・という順番に列をしたい

日本語が変。きちんとどうしたいのかを説明できてない。

2chに期待しすぎだな

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 抽出

２番目シートにCSVデータを取り込んで、たとえば以下のようなデータがあるとします。

注文番号　購入商品
223　　　　　みかん
223　　　　　りんご
224　　　　　みかん
225　　　　　ハイライト
226　　　　　みかん
226　　　　　りんご
227　　　　　みかん

これを１番目のシートで　223　の注文番号で購入した顧客が
何を購入したかというのを１作業（注文番号を入れるだけ）で表示させるにはどうすればよいでしょうか？
vlookupを使っても表示されるのは1行目のみかんだけだと思うので、
何か解決策があればご伝授頂ければ幸いです。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 「Excel　関数　コピー」

関数を入力したセルをコピペしても、なぜか計算してくれません(´･ω･`)
コピーしようとしているのは「=PERCENTRANK(C$2:C$11,C2)」ですが、他の関数で試しても同様でした。
これを入力したセル（E2)ではきちんと値を返してくれますが、他のセル（E3〜E11）にコピーすると、最後のC2がC3〜11に変わりはするものの、C2のときの値が表示されます。

以前はこんなことなかったと思うのですが……。ご教授お願いします。

>>254
F9押して再計算されるなら
「ツール」「オプション」「計算方法」「自動」

すみませんが、助けてください。

A列とＣ列を足し算して、答えをF列に書かせるにはどうしたらいいですか？
３８０行くらいあるので、全部いっぺんに自動的にやらせたいです。

>>256
f列の回答が入るところをマウスで全部選択。
一番上のセルに(2行目にデータが入ってる場合f2に）
=a2+c2
と入力して[Ctrl]+[Enter]

>>257
できましたー！
ありがとうございました。感涙。

>>255
出来ました。ありがとうございました。
見過ごしていたようで、本当にすいません。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 「Excel　VBA マウス　クリック」


ボタンをシートに配置。そのボタンをクリック
↓
フォームが開く
↓
フォーム内の「ＯＫ」というボタンをクリックするまで、
マウスで左クリックしたセルを「黒」で塗る。
もし、「黒」だったら、「白」で塗る。（消去）



できない。。宜しければどなたか教えて下さい。

>>260
何がしたいか分からん
何をどこに配置するかしっかりかけ

>>261
ｱﾎ？

＞何がしたいか分からん
フォーム内の「ＯＫ」というボタンをクリックするまで、
マウスで左クリックしたセルを「黒」で塗る。
もし、「黒」だったら、「白」で塗る。（消去）

＞何をどこに配置するかしっかりかけ
"ボタン"を"シート"に"配置"

なんとか自己解決しました｡
使用した関数は、vlookup,index,match,dcounta　です

あとif

判るだろｗ

つーか、丸投げで教えろってか？
それなら、VBAでココまでできましたけど・・・位の気持ちもない奴には（ｒｙ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 x軸の設定 散布図

散布図を使い日をまたいで、お客さんがどの程度来ているかというのをグラフにしたいのですが
x軸を 21時 22時 23時 24時 1時 2時…という風にしたいのですが
グラフにして表示するとx軸が1時2時〜24時という風に出てしまいます。
24時が中心に来るようにするにはどうすればよいのでしょうか

Excelに画像を挿入する時に、
最初からサイズを指定しておくってのはできないのかな。
誰か教えてくれませんか

>>267
テンプレ読んだ？

>>266
日付を変えればいいだけじゃん。


>>267
画像を直接貼るんじゃなくて､
イメージオブジェクトを配置しておいて､
そいつに画像読ませればいいと思うよ。

具体的なやり方は自分で調べよう。

今、エクセル2003をインスコしたんだけど、数式バーの=が無いだけど、
これを表示するにはどーすれば良いでしょうか

>>270
ないのよ。

>>270
ユーザー設定→コマンド→挿入
=の挿入
これを適当なツールバー（数式バーの上ぐらい）にドラッグ

これで我慢してね

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel UTF Unicode CSV
UTF-8のCSVファイルを開くと文字化けが発生してしまいます。
文字コードはどこで指定すればいいのでしょうか。

保存の仕方はあったのですが
開く際の指定が見つかりませんでした。

>>273
[データ]-[外部データの取り込み]あたりから読み込むと文字コードが指定できたと思うｙ

>>271-2

有り難うございました、2000に戻します

>>275
そんな事でバージョン戻すなって
無いものは無いんだもの

質問です

たとえば
=FLOOR(D6,"0:30")-D7-D8-D9
の演算結果がマイナスで「-1:30」とかなる場合、結果が
「##########」になってしまいます。これを「-1:30」又は赤字で表示できませんか？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

です

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 データの最大値 行毎に最大値を求める

A1〜A50000までの各セルにそれぞれ数値が入っており、
A1〜A250までの最大値をB1に、
A251〜A500までの最大値をB2に・・・と言うように、
250行単位でそれぞれの最大値を抜き出した列を作りたいのですが
一括で処理する良い方法はありませんでしょうか？

>>279
範囲のセル番地をINDIRECT関数で間接的に指定する

>>277
時刻(シリアル値)に負の概念は無いので､-符号は文字列として追加するしかありません。
IFで条件分岐して､値が負の場合は"-"と結果の絶対値(ABS関数)を&で連結するようにしましょう。


>>279
ROW､ADDRESS､INDIRECT､OFFSET等で､お望みの参照範囲を作り､あとはMAX。
1*250-249=1､2*250-249=251､3*250-249=501って感じで250行単位に出来るでしょ。
別に(行-1)*250+1でもいいし。あとは､それぞれの使い方はヘルプ参照。

>>277
日付の初期設定を1904年からに変える

>>281
時間計算は、毎回出てくるおなじみの質問
君！知らなかったの？

>>227
計算方式を1904年からに変更

>>279
B1に=MAX(OFFSET($A$1:$A$250,(ROW()-1)*250,0))
で下ドラッグ

あ、かぶった。282さんスマン

>>283
>>31

自分は過去ログ読まないんだなｗｗｗ

だ　・　け　・　ど　、、、回答したいんだね

アンタがこんな子になるやなんて、おかぁちゃん　情けないわ！

質問：MSエクセルの致命的な不具合

**************************************************
本来、「複数のウィンドウを開くツール」は、個別にウィンドウを閉じる動作を原則とする。
たとえば、MSIEで「ヤフー」と「グーグル」を開いていると、ヤフーのウィンドウで「ウィンドウを閉じる」を実行
しても、ヤフーのウィンドウだけを閉じる。すべてのウィンドウをいっせいに閉じることは しない。また、そういっ
た きのうは求められていないので、導入されることもない。
MS office 2003 シリーズも同様である。たとえばMSワードで5つのウィンドウを開いていても、右上の「×」ボタン
（＝ウィンドウを閉じる）を実行しても、該当のウィンドウを閉じるだけである。
しかし、MSエクセルにおいては、「×」ボタンを押すと、すべてのウィンドウを閉じてしまう。これは ほかのツ
ールとの共通性を無視しており、しかも、MSオフィス シリーズ内部でも一貫性のない仕様である。
さらに、タスク バーを右クリックして「閉じる（Alt+F4）」を選択すると、なぜか1つのファイルだけを閉じる
。
しかし、ウィンドウ上でAlt+ F4 を押すと、すべてのウィンドウをいっせいに閉じてしまう。エクセルの内部だ
けでも一貫性がなく、もはや その問題は致命的なプログラム不具合といえる。
**************************************************
質問です。上記問題を回復する方法を教えてください。

Excel2つ立ち上げれば？

>>289
Excelっつーかタスクバーのプロパティで同じアプリのグループ化を
解除しとけばいいんじゃないかな。

>>289
> しかし、MSエクセルにおいては、「×」ボタンを押すと、すべてのウィンドウを閉じてしまう。これは ほかのツ
> ールとの共通性を無視しており、しかも、MSオフィス シリーズ内部でも一貫性のない仕様である。

押す×が間違ってるだけだと思うが。
一つのウィンドウだけ閉じたければ、一番右上の×でなく、ツールバーのあたりにある×を押せばよい。
他のツールとも共通してるはず。

>>290

違いますよ。

てきとーに書いてみた
ThisWorkbookに書いてXLAとして保存、アドインとして組み込み
Execl2000でチェック
何かとんでもない動作をしても知らん

Private WithEvents App As Excel.Application
Private Sub Workbook_Open()
Set App = Application
End Sub
Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
If Not (ActiveWorkbook Is Nothing) Then
If Wb.FullName <> ActiveWorkbook.FullName Then
Cancel = True
ActiveWorkbook.Close
End If
End If
End Sub

>>291

違いますよ。

>>289
本来、「複数のウィンドウを開くツール」は

エクセルは、該当しないという落ちじゃないかね。

そもそも日本語がわからん
>上記問題を回復する方法を教えてください。

Excelを2つ立ち上げ、それぞれファイル(F)→開く(O)でブックを開く。

確かに不便っちゃ不便だし統一性がないけど、タブブラウザみたいなもんだと考えればいいんじゃね？
一つのアプリ窓に複数の書類も開けるけど、エクセルを複数起動して別々に開くことも出来るっちうことで。
一番わかりやすいのはもちろんMacみたいなスタイルなんだろうけど。

うぜえ

セルに二段で、漢字-アルファベット-数字という並びで保険番号を
入力したいのですが、漢字は上でそれ以外は下となってしまいます。
なんでですか？ウィンドウズ98です。

いま実際にどういう状態で表示されているか具体例を書き、
本当はどうしたいのかを具体的に書いた方がいいのでは？

第ABDE0369‐1と上下二段でいれたいんですが、第以外は下になってしまうんです。

だから「具体的に」って言ったじゃん・・・

例えば、今は

＞第
＞ABDE0369‐1

と表示されてしまうけど、本当は

＞第ABDE
＞0369‐1

というふうに表示させたい、とか。
どういう状態なのをどういう状態にしたいのかを書かないと解決策もクソもないだろ。

すみません教えてください。
Ａのセルの数値が２０００以上か
Ｂのセルの数値が１０００以上の条件で
Ｃのセルに１
それ以外はＣのセルに２と入れたい場合の

Ｃのセルに記述する関数文を教授ください

>>305
=IF(AND(A1>=1000,B1>=2000),1,2)　　　※A1,B1は一行目の場合

>>306
ありがとうございます。

>>304
失礼しました。第ABDEを上段に、0369-1を下段に表示したいのです。

>>308
第ABDE と 0369-1 の間に半角スペースを入れればOK
もし３行に分かれてしまったらセル幅を調整する

>>303
改行したい位置で
[Alt]+[Enter]

>>309.310
目からｳﾛｺです。ありがとうございます。

こんなに便利なスレがあったんですね。
今までググったり本を買って読んだりしてたけど、このスレがあることを知っていれば・・・

>312
まづは自分で調べる事が一番
知ったかぶりして中途半端な答え書くヤツもいるから注意してね！！

>>313
×まづ　→　○まず（先ず）

知ったかぶりして中途半端な日本語を書かないように！

それは　やぼ　というものよ

>>314
おぢさんはやぼでこまる

そうか　これが　やぼ　だったのか

セルの数値をパラメーターとしたSQLを発行する方法はないのでしょうか？
イメージとしては以下のようなことをしたく思います。
select * from asdf where jkl = A1;

MicrosoftQueryを含むことで多少スレ違いかも知れませんが、どうかお願いします。

>>299
> 確かに不便っちゃ不便だし統一性がないけど、タブブラウザみたいなもんだと考えればいいんじゃね？
> 一つのアプリ窓に複数の書類も開けるけど、エクセルを複数起動して別々に開くことも出来るっちうことで。
> 一番わかりやすいのはもちろんMacみたいなスタイルなんだろうけど。

タブ ブラウザは、タブを使うかウィンドウを使うか選択できますよ。
そもそもAlt+ F4 でウィンドウを閉じているので、タブ ブラウザみたいなもんだと考えればいいんじゃねくありません。

そういうことじゃないだろ、わからんちん

>>318
まずはやってみれ

>>321
>>318のままのSQL文ではセルA1の内容を渡すことが出来ず、A1がデータベース側のカラム名として扱われてしまいます。
そしてデータベースにA1というカラムが存在していないとそのままカラムがないと言われます。
なんとかセルの内容をデータベース側に渡すことは出来ないでしょうか？

MSエクセルが無能だといってるんですよ。
MSの独占市場じゃなければ、こんな不具合だらけのツールが売れるはずが ありませんからね。

>>323
わかったけど、ここはそういうスレじゃないから。
よそにお逝き。

いや、おれは>>323に同意。

ピボットテーブルのような集計されたタテヨコに項目が伸びてる票があります

これを逆に、１つの表（ピボットを使う時のようなリスト）
に戻すようなのってどうやります？

なんか賢い方向あるんでしょうか？

行方向の項目は40，列方向は30あります。

ＶＢＡでアイディア貰えたら使えるレベルです。

しこしこデータを戻すのを書けば、出来ない事はないんですが
行方向列方向とも項目数が一定でないのと量が多いので
何か賢い方法があればと。

手作業で可能だと言うならそれをそのまま機械化すればいい

【1 OSの種類 　 　 　 　 .】 WindowsXP プロ
【2 Excelのバージョン 　 】 Excel2002だと思う
【3 VBAが使えるか　 　 .】 使えません
【4 VBAでの回答の可否】 否

ある一定の数値以下の数字をセルに貼り付け(入力)したときに
そのセルに対して文字列を返すことは可能ですか？

例えば、０．１以下の数字をセルのＡ１に貼り付けると
『＜０．１』がセルＡ１に対して返ってくるみたいなイメージなんですが。

>>328
何故同じセルなの？
一括で何らかのデータをコピペすると推測して、別のシートや隣の表じゃダメなの？

>>329

＞一括で何らかのデータをコピペすると推測して
その通りです。

入力用の別シートとかを作りたいのはヤマヤマなのですが
仕事上の事情で作れないんですよ・・・

仮想的にやればいいだけ
クライアントを一つつくってバックグランドで処理させる

>>328
やりたいことを具体的に言ってくれ
例だと単にセルの書式でいいんじゃね？

>>322
まじめにやれ

ちなみに、A1の値をA2に貼り付けるのをVBAでやってごらん

>>330
▼━ 答えやすい質問のしかた ━━━━━━━━━━━━━━━━
★1 質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。
★1 質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。
★1 質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。
★1 質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。
★1 質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。
★2 要望は具体例や図を使って明確かつ具体的に。

終了

>>330
作業用のシート作って、終了したらコピペでいいやん

>>328

セルの書式として以下のような表示形式をユーザ定義。

[<0.1]"<0.1";">=0.1"

すると、この書式を定義したセルに0.1未満の値を入力すると、
「<0.1」と表示されるし、0.1以上の値を入力すると、「>=0.1」
と表示される。
これでいいのかな？

使い方が判らん奴に教えても、第三者が迷惑するぞ

コピペで書式が消されるというオチでつか？

教えてください
表示したくないセルがあってセルを非表示にして事足りたんですが、
たとえば行を何行か閉じて、クリックしたら開くような設定って
ありませんでしたか？昔使ってた記憶があるんですがやり方を忘れました・・。

>>339
データ→グループとアウトラインの設定

使ってたのとなんか違うけどできた。
ありがとう。>>340

【1 OSの種類 　 　 　 　 .】 WindowsXP SP2
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 使える
【4 VBAでの回答の可否】 否

左揃えを維持したまま文字列の先頭を隠す事はできますか？
好きな順でソートする為のものなので見た目として隠れていればどんな方法でもいいのですが、
文字列の先頭が不自然に空いてしまう状況は避けたいです。
よろしくお願いします。

【1 OSの種類 　 　 　 　 .】 Mac OS X Tiger
【2 Excelのバージョン 　 】 Excel2004
【3 VBAが使えるか　 　 .】 使えない
【4 VBAでの回答の可否】 否

生まれて初めてExcelを使うド素人です。文字を丸で囲むやり方がわかりません。
履歴書の有・無などを丸で囲みたいのです。
どうか教えてくださいませんか。　

>>343
ヒント：図形

>>344
有り難うございます。
囲みたい文字のあるセル選択→挿入オートシェイプ→図形選択→丸を選択し対象文字にドラッグ。

→円グラフのようなでかい円出現→小さくしても丸で文字が隠れる。微妙に楕円になってしまい。
相手側のExcelで読めるか心配。

以上、現在の状況です。もう１つアドバイスお願い致します！！！

>>345
shiftキー

>>342
___BBB
___FFF
__AAA
__DDD
__GGG
_CCC
_EEE
こんな感じのソートを､ _ の表示無しにやりたいってことか?
ならば
BBB　　1
FFF　　 1
AAA　　2
DDD　　2
って感じで､隣のセルに優先グーループ順の数値入れて､その列を非表示にし
その列を第1キー､AAA､BBBなどのデータ列を第2キーにしてソートすればいいよ。
どうしても1列で賄いたければ､非表示にするのはたぶん無理なので､
___BBBに対して｢@｣､
__AAAに対して｢_@｣
_CCCに対して｢__@｣
と書式を変えてやれば､空白は入るが位置は揃うので不自然にはならない。

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

名簿があるのですが、その名簿の人名をア行〜ワ行で分けた
別リストを作ろうとおもうのですが、ア行の人名の取得方法が
分かりません。今は、手動でやっているのですが、出来たら
VBAで簡単にしたいと思ってます。
何かいい関数などありましたら、教えてください。

ふりがなで並べ替える

>>348
ワークシート関数のPHONETIC(WorksheetFunction.PHONETIC)か､
VBAのGetPhonetic(Application.GetPhonetic)メソッド。

PHONETICはシートの入力からフリガナを取得するので､きちんと手入力したデータなら確実な読みが取得出来るが
手入力ではなく､コピペや外部データ読み込みだったりすると､漢字がそのまま返るし
変換するために本来の読みとは違う入力を行った場合は正しく取得できない。

Application.GetPhoneticはIME辞書を利用して読みを返すので､入力状態に関わらず一応読みを取得できるが
辞書利用故に､複数の候補を返すことがあり､基本的には1つ目を利用するが､1つ目の読みが間違っている可能性もある。

Win me
Excel 2002
恥ずかしながらVBAは使えません。

1 - 1
1 - 2
1 - 3
・
・
・


といった連番を入力する方法を教えてください。

>>351
�@
入力：="1 - "&ROW(A1)
フィルコピー

�A
入力：1
表示形式：｢"1 - "0｣
フィルコピー

>>352
ありがとうございます。

>>349-350
即レスありがとうございます。
とりあえず、ひらがなになおしてからなんですけど、
変数に、あ〜おの人の数を入れようとしたら、
leftで1文字目を取得して、ifとdo loopで変数に＋１していく
とかいう方法しか思いつかないんですけど、
それだとかなり冗長になりそうなので、簡単な方法とかないですか？
何回もすいません。

何がしたいか分らない

>>351
>恥ずかしながらVBAは使えません。
使えない人もいっぱいいますよ
それでも仕事になってるんだし恥ずかしくも何ともないですよ
あなたは失礼な人ですね

あるひとつのシートに入力した値を別のシートに自動で
コピーされるようにすることはできますか？
たとえばシート１にA店の売り上げ、客層などを入力
シート２にB店の…というように入れていけば
シート５０に全店の売り上げが自動で入力される
という状態にしたいのですが

すんません。
読み返したら、言葉全然足りてなかった。

リストの人名＋数字を別のシートに横にア行とかで表示したいんですよ。
例えば、
阿部さん　２
麻生さん　３
近藤さん　４
佐藤さん　１

というのを

ア行　阿部さん ２　麻生さん １
カ行　近藤さん ４
サ行　佐藤さん 1
というように別のシートに横書きにうつしたいんですけど、人名の件数が増えるので
相対性に強いVBAでと思ったんですよ。

>>354,358
>>2･8

とりあえずどういうコードを冗長だと言ってるのか
そのコードを書いて､ここに貼ってみな。

Range("b2").Select
MyA = 0
Do Until Selection = ""
Mystr = Selection.Value
Mystr = Left(Mystr, 1)
If Mystr = "あ" Or "い" Then
MyA = MyA + 1
End If
Selection.Offset(1, 0).Select
Loop

↑elseifでワ行まで。
今急いで、書いたのでちょっと違うのになるけど、
あ〜おだったら、ア行の変数に＋１して数をとって
最終的にア行カ行・・・の行の範囲とって別シートに
列にして表示させようかと。
当方初心者に毛が生えたくらいなもんなんで、
こんなんしか思いつかないんですよ。

とりあえず
> If Mystr = "あ" Or "い" Then
は構文として間違ってるが､まあそれは良いとして
1文字判定なら=演算子ではなくLike演算子使って文字クラスとのマッチを見た方がいいな。
でも､普通こういうのは文字コードで処理するもの。文字コードを返すのはAsc､AscW関数だ。
あとは各セルの先頭1文字を取得するのに
　Range("b2").Select
　Do Until Selection = ""
　　Mystr = Selection.Value
　　Mystr = Left(Mystr, 1)
　　' 処理
　　Selection.Offset(1, 0).Select
　Loop
これだけのコードを使ってるが､ここは
　For i = 2 To Cells(65536, 2).End(xlUp).Row
　　Mystr = Left(Cells(i, 2).Value, 1)
　　' 処理
　Next i
で事足りる。Ascで文字コード取得するなら､先頭1文字切り出す必要は無いが。
あとは自分で頑張ってみよう。またアドバイスが欲しかったら､
今度は｢今急いで、書いたのでちょっと違うの｣ではなく､きちんと書いて
>>2･3 VBAコードを貼る場合は、部分的に伏せたり省略したりせずに全て貼りましょう。
ってことでよろしく。

ひらがなにしてあって「あ行」だったら「『あ』以上『か』より下」の条件でフィルタかければいいよ。
そんでコピー。
まくろだとautofilterだね。名簿（？）からあ行を抽出してsheet2に転機

Set targetRange = Range(Range("B1"), Range("B1").End(xlDown))
targetRange.AutoFilter Field:=1, Criteria1:=">=あ", Operator:=xlAnd, Criteria2:="<か"
targetRange.Copy Worksheets("Sheet2").Range("B1")

質問です。
エクセルだけ、タスクバーに「Microsoft Excel」と左から表示されています。
そのせいで、ファイル名が ほとんど見えません。
タスク バーの表示が「Microsoft Excel - 家計簿.xls」の場合、「Microsoft Excel - 家」という表示になっています。
しかし、普通はツール名を優先表示しません。
MSIEなら「google - Microsoft Internet Explorer」となり、タスク バー上には「google - Mic」と表示され、どのタスク バーが どのファイルなのかが明確です。
質問です。
なぜエクセルだけツール名を左に表示しますか。
ビル ゲイツは死んでください。エクセルの開発者も全員死んでください。
大学で習う「インタフェイス工学」の基礎の基礎の基礎を勉強したあとに全員自殺してください。
あなた方の存在自体が社会の迷惑です。by 世界中の人間全員

>>363

エクセルを使わなければ解決。
俺って天才じゃね？

Adobe Reader 6.0もそうだな
ファイル名などを先に持ってくるよりアプリ名を主張するほうが重要であるとの思想なのだろう

>>365

Adobe Readerを使わなければ解決。
俺って天才じゃね？

両方のツールに共通の性質。
それは「市場が独占状態にあること」。
要するにビル ゲイツが死ねばいいだけです。

>>361-362
遅いけど、ありがとうございました。
すごい参考になりました。
なんとかやってみます。

入力フォームで入手したデータをCSVにして取り込んでいるのですが
CSV化するときにどうしても改行を入れても半角スペースになってしまいます。
半角スペースを改行に置き換えたくSUBSTITUTE()使おうとしているのですが
改行コードみたいなのを入力することは不可能でしょうか。\nとか\rでいけると思ったのに。

>>369
改行コードはコードでしかないので､文字コードを文字にする関数使って
改行コードを改行文字にしないと意味無いよ。
改行文字の文字コードと､コードから文字を返す関数くらいは､すぐ見つかるはずだから自分で調べよう。
VBAなら定数のvbCr(\r)､vbLf(\n)､vbCrLf(\r\n)が使えるし､RegExpを参照して"\r"や"\n"自体も使えるけどね。

>>369
置き換え機能で「検索する文字列」に半角スペース、
「置換後の文字列」で[ctrl]+[J]で置き換えればいいよ

ビル ゲイツとエクセル開発者は全員 今すぐ死んでください。by 世界中の人間

エクセルでつくったグラフを、ワードに挿入
したい。
可能ですか？

可能です。
グラフを作る部分はExcelの話ですが､Wordに挿入する部分はWordの話なので､
それぞれ解らない部分に適したスレで質問しましょう。

ありがとうございました

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ

　　　　A　 　　B　　　　　C
１ 　 9/3　　　8/1　　　9/5
２　　１０　　 15　　　　30
３ 品名A　　 品名B　　品名A

1行目に日付,二行目に個数,3行目に品名を入力して
他のセルにSUMIF(IF関数も使う？)を使って特定の条件の合計を出したいと思うんですが
日付の月が8月とか9月とか混ざってるので9月なら9月だけ及び特定の品名の合計
を出したいんですけど9月だけっていう出し方はどうすれば良いんでしょうか？

日付はシリアル値？それとも文字？

えっ　シリアル値？すんません　よく分かりません(´・ω・`)
普通に9スラッシュ5と入力して日付表示形式で9/5とかで表示させてるんですけど・・
すんません

ビル ゲイツさんへ。死んでください。
よろしくお願い致します。

>>376
=MONTH(日付セル)=9
を条件にすればよし

ちなみにそのままではSUMIFでは出来ないので､SUMとIFを配列数式で使ってね。
配列数式の使い方は自分で調べること。

どうしてもSUMIFでやりたければ､作業行(列)に､
=MONTH(A1)&","&A3
と入れて､｢"9,品名A"｣を条件にSUMIF
あと､行列を入れ替えた方がいいよ。

【1 OSの種類 　 　 　 　 .】 WindowsXP SP2
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 使える
【4 VBAでの回答の可否】 否

ある範囲のなかで最も多く出現する項目を調べるためには、
各項目ごとにcountifして、それをソートするしかないのでしょうか？
なにかもっといい方法があったら教えてください。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 excel 関数　比較

A列とB列にデータがあり、B列のデータがA列に含まれているのか調べたいと思っています。
vlookupを使えばいいというのが何となくわかっていますが、具体的にどうすればいいのか
わからないです。

教えていただけますでしょうか？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい少し
【4 VBAでの回答の可否】 可

エクセルのﾌﾞｯｸを保存する際、複数あるシートのそれぞれのA1を確認し、
A1が空白ならそのｼｰﾄは削除、A1が埋まっていればそのまま。
という条件を入れて保存したいと考えています。
そのやり方について教えてください。

一応調べて
If Sheets("Sheet1").Range("A1").Value = "" Then
Sheets("Sheet1").Delete
の段階まではわかったのですが、
シートの名前が違うとエラーが出ます。

条件なのですが、シートの名前は多種にわたり、毎回違うことを
前提にしたVBAで教えていただけないでしょうか？
つまりシートの名前や数がいくらのときでも対応できるような。
どうぞよろしくお願いします。

>>381
項目ってのが数値ならMODE関数
文字列なら配列数式で。

>>382
COUNTIFで充分だよ。
0が返ったら含まれない､0以外が返ったら含まれると判断すれば良い。

>>383
Worksheetsコレクションに対してループ回せば良い。



ちなみに､これで解らないことがあっても､すぐに聞き返したりせずに
自分で調べる努力をして､それでも解らなかったら自分でやってみたことを書いた上で再質問しようね。

>>384
ありがとうございます、配列数式について調べてみます

【1 OSの種類 　 　 　 　 .】 WindowsXPProSP2
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ひとつのセル 複数のパターン


ひとつのセルのみで複数のパターンを適用させるには？

[具体例]
A1セルに「A/B/C」と入力されているとする。
ここでAを赤、/を色無し、Bを黄、Cを青と設定する方法が解らなかった。

>>386
セルをダブルクリックするかF2押すかして編集モードにし､
書式の変更をしたい文字のみを反転選択して､
右クリックの｢セルの書式設定｣やツールバーなどから変更する。

但し､文字単位での設定が出来ない書式もあるので注意。
とりあえず文字選択状態での｢セルの書式設定｣に出てこないものは
セル単位のみの設定だと思えば良い。

>>384
ありがとうございます。
何とか目的の動作にたどり着きました。


ここからは別の話になるのですが、
　＞ちなみに､これで解らないことがあっても､すぐに聞き返したりせずに
　＞自分で調べる努力をして､それでも解らなかったら自分でやってみたことを書いた上で再質問しようね。
べつにまぁその人の性格の問題だからどうしようもないんだけど、
こういうのって書くの辞めてもらえない？
別に>>374マクロ教わるために来てるわけでもなく、ただ単純に回答が欲しくて来てる人がほとんどだと思う。

何処のスレでもいるけれど、質問者のためになっていいとか、質問者に対して優位な雰囲気をかもし出したい、
などの意図などがあってか、ヒントを出して答えを出さないほうが良いんだって考えていない？

まぁ、個人の考えだからそれはそれでいいんだし、回答がわからなければわからないでいいと思うし、
でも最後の2行で締めくくるようなことは辞めてもらえない？他の善意ある回答者による回答までも妨げられる要因になるから。

とはいえ回答していただきありがとうございました。

>>388
こういうのって書くの辞めてもらえない？

稀に見るギスギス感到来
氷河時間帯に突入

てかさ、387は>>1の

･5 回答内容でわからない部分があっても、すぐに聞き返さずにヘルプやGoogleなどで検索しましょう。

これをやわらかく言っただけなんだよね

間違えた、わかるとは思うけど訂正
387→384

>>391
てかさ、テンプレにあるならわざわざ書くなよな。
毎回の回答でどっさりテンプレ書き直してちゃきり無いしな。
何のためのテンプレだと思ってんだろ。

>>393
もう回答が得られたなら消えれ
これ以上は荒れる
言いたいこともわかる、が、ここは質問回答スレ。
回答者には回答者のやり方がある。
気に食わないなら質問すべきでない。

【1 OSの種類 　 　 　 　 .】 WindowsXPHome
【2 Excelのバージョン 　 】 ExcelXP（2002）
【3 VBAが使えるか　 　 .】 ほぼコピペするだけしかできません
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 置換

A1、A2、A3・・・・に文字列が入っており、それぞれに含まれる文字列を使って1行目、2行目、3行目、・・・のセルに含まれる固定の文字列の一部と置換したいと思います。

例えばこういったときに
A1=バナナ、B1=asdfでも食うか、C1=そんなasdf、D1=asdfasdf・・・・
A2=りんご、B2=asdfでも食うか、C2=そんなasdf、D2=asdfasdf・・・・
・
・
すべての行がこうなってほしいのです。
A1=バナナ、B1=今日は疲れたしバナナでも食うか、C1=そんなバナナ、D1=バナナバナナ・・・・
A2=りんご、B2=今日は疲れたしりんごでも食うか、C2=そんなりんご、D2=りんごりんご・・・・
・
・

どうかよろしくお願いします

またかｗ

いつになったら荒れるのは自分のオナニー回答のせいだってことを
まっすぐみつめられるのかね「この子」は

cellsで範囲を指定したいのですが

Set 範囲 = Range(Cells(1, 1), Cells(2, 2))
Range(範囲).Select

とするとエラーがでます
どこがいけないのでしょうか？

>>371
ありがとうございます。今はその方法でやってますが、
それを毎回やるのが煩わしいので自動で出来ないかと…。

>>370
CHAR(10)でやってみましたが、セルの書式設定で折り返しをつけないとダメなんですね。
もう少しやってみます

出来ました。本当にありがとうございます。
substitute(元の文字," ",char(10))　セルの書式設定を全体の折り返しありに
これでいけそうです。

別の質問になってしまいますが、CSVデータを自動更新する際、
いちいちファイルダイアログが出てきて開くボタンを押さないとならないのですが
これはどうにもならないでしょうか。

>>398
だからさ、エラーが出るっちゅうなら、どんなエラーが出るのかとかぐらい書けよ

>>401
失礼、忘れてました

実行時エラー'1004':
'Range' メソッドは失敗しました:'_Global'オブジェクト

というエラーメッセージです
エラーの位置は

Range(範囲).Select

です

>>402
変数にRANGE入れてるのに、さらにRANGEがはいってる。
範囲.Select
で桶

>>403
そうか
「範囲」は普通の変数かと思っていたらオブジェクトになってたんですね
ありがとうございました

回答だけすればいいのに、いつも余計な一言を付けるアホがいるな
まぁ質問者も一日ぐらい気長に待つべし

回答者のほうが偉いんだからいいんじゃね？

＞回答者のほうが偉い

( ´,_ゝ`)ﾌﾟｯ 　ガキだなぁ

まあ、上級者なら舌足らずの質問でもいくつかの状況が想定できる
けどな w

エクセル　ワードが上達する無料でお薦めのFREEソフトを教えてもらえますか

>>409
マルチしね

>>387
御教授通りに操作したのだが出来なかった。

[具体例]の場合、
手順1.　A1セルを選択
手順2.　「A」のみ選択
手順3a.　「セルの書式設定」で「パターン」が出ず。
手順3b.　ツールバーの「塗りつぶしの色」が設定出来ず。

こういうことじゃないのか？
ttp://vista.xii.jp/img/vi5731526013.jpg

>>411
なんでパターンでやりたいの？

>>411
ヒント：下3行

>>412
文字色ではなく網掛けなんじゃないかと
網掛けの中でも2色グラデーションのみを指す特殊な物を｢パターン｣と呼ぶが
他にも｢パターン｣はあるので､｢セルの網掛けのパターン｣って言わないと正しくないんだけどね
387はその辺がハッキリしないから､一般的な書式設定方法と
網掛けなどはセル内全体を対象にしか使えないってことを書いたんだと思われ
まあ網掛けを個別にやりたければ､セルの逆結合(対象セル以外を結合する)ことで
視覚的に同じ効果を出せるし､そもそもこんなのは計算ソフトではなくワープロやDTPソフトの分野だしな

答えを書かないならレスしなくていいよ
こんなことで優越感でも感じてるのか知らんがじゃまだ

>>415-416
>>415

>>415
質問した方が偉そうなのも？？？じゃないか？
ってか、漏れはヒントもらえるだけでも十分助かる。
荒れて回答が無くなったら困るから、消えてくれ

A列に社員番号があります。このときB列に社員番号に対応した名前を表示させたいときはどうすればいいのでしょう。
もちろん全社員の番号と名前のリストはあります。

HLOOKUPとかVLOOKUPとか。ヘルプ見たりググったりすりゃわかる。
そもそもAccess使っとけと言いたいが耐える。

このスレをVLOOKUPで検索

>>419
>>420
ありがとう御座います。EXCEL関数逆引き大全で見つけたところで冷や汗が出ています。
昨日はヘルプを探し回って見つからなかったのに・・・
初歩的な質問でスレ汚し済みませんでした。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

　　　　A　 　　　　B　　　　　C
１ 　2005/1/15　　仕入　　　500
２　　　　　　　　　　仕入　　　400
３ 　2005/1/12　　仕入　　　300
４　　　　　　　　　　仕入　　　100
５　　　　　　　　　　仕入　　　50

Aの列に日付が表示されてない行のC列の対象数字の合計を別のセルに出したいんですが、
どういう式を書けばいいか教えていただけないでしょうか。
初心者用のページとか色々見たんですけどわかりませんでした。

>>422
SUMIFワークシート関数でいけそうな感じかな
その表だと「=SUMIF(A1:A5,"",C1:C5)」でC2,C4,C5の合計でるよ

出来ました！
素早い回答ありがとうございました。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可
ワークシート1にあるリストをシート2に横に並べて表示
させたいのですが、横にすると長すぎるので、
5列くらいで切って、つぎの行の頭から続きを表示させたいのですが、

Sub test()
Dim i As Integer, MyE As Integer
Dim Myt() As String
MyE = Range("a65536").End(xlUp).Row
For i = 2 To MyE
ReDim Myt(i)
Myt(i) = Worksheets("sheet1").Cells(i, 1).Value
Worksheets("sheet2").Cells(1, i) = Myt(i)
Next
End Sub
上記で、横に一列で表示できるのですが、

あ　　　　　　　　　あいうえお　　←ここで折り返したい
い　　　　→　　　 かきくけこ
う　　　　　　　　　 さしすせそ
え
か
き
く
け
こ

という風にしたいのですが、どのようにしたらいいか皆目見当もつきません。
なにかいい方法がありましたら、教えて頂きたいのですが。

>>425
5で割った答えと余りを求めて使う

【1 OSの種類 　 　 　 　 .】 WindowsNT4.0
【2 Excelのバージョン 　 】 Excel97
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

【質問】エクスプローラを実行した後、移動したフォルダの値をテキストボックスに表示したい

'UserForm1.TextBox2の値
'C:\WINNT\Profiles\PC01\ﾃﾞｽｸﾄｯﾌﾟ\○○用データ\ＸＬＳ

Private Sub エクセルフォルダ指定Button_Click()
XLS_PASS = UserForm1.TextBox2
ChDir XLS_PASS
Shell "explorer.exe /n,/e,"
End Sub

現在上記のようにボタンでエクセルのフォルダを開いてるのですが、他のフォルダに移動した場合
移動先のフォルダの値をUserForm1.TextBox2に入れたいのですがわかりません。

わかる方がいらっしゃったらよろしくお願いします。

>>427
APIでガシガシ書けばいけるだろうが、とんでもなく面倒くさいはず。 (調べるのすら面倒)
つーかVBAでは不可能。
普通のUIなら、そういった動作はダイアログ開いて選択させるはずだが。

【1 OSの種類 　 　 　 　 .】 Windows98
【2 Excelのバージョン 　 】 Excel98？
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

いきなりすみません。質問です。
エクセルで画像を取り込みトリミングしたいんですが
画像を思いのままに斜めに切ったりしたいんですが
無理でしょうか？縦・横の直線のカットは分かるんですが・・・
締切り間際で死ぬほど焦ってます。
神降臨お待ちしてます。

>>426

X = MyE \ 5

として、この後この数字をどう使ったらいいですか？
色々考えたんですが、本気でわかりません。

>>428
VBAじゃ無理なのか、、、
エクスプローラのアドレスをコピペで対応することにします。

>430
５で割る必要なし。

Sub hoge()
　 r = 1
　 c = 1
　 For i = 2 To Range("A65536").End(xlUp).Row
　 　 Worksheets("sheet2").Cells(r, c) = Worksheets("sheet1").Cells(i, 1)
　 　 c = c + 1
　 　 If c > 5 Then
　 　 　 c = 1
　 　 　 r = r + 1
　 　 End If
　 Next
End Sub

Sub omake()
　 For i = 2 To Range("A65536").End(xlUp).Row
　 　 Worksheets("sheet2").Cells((i + 3) \ 5, (i + 3) Mod 5 + 1) = Cells(i, 1)
　 Next
End Sub

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

質問に対して○△×で回答を得て、○を３点、△を１点、×は０点として
合計を求めたいんです。
どのような数式を組めばいいでしょうか。
是非お力を貸してください。

>>429
Photoshopのバッチのほうが早そう

>>434
つ　if

=SUM((範囲="○")*3+(範囲="△")*1+(範囲="×")*0)
と打ち込んでctrl + shift + enter

ちなみに、「(範囲="×")*0」は省略可。

>>434 です。

配列数式は配列数式でなければ解けないときだけにすべきですね。
=COUNTIF(範囲, "○")*3+COUNTIF(範囲, "△")

VBAの話なのですが
Cells(1,1) を　"A1"　と変換するコマンドは無いのでしょうか？

>>440
痴女

>>441
すいません
Googleでも「痴女」で検索してみたのですが、どうにも分かりません
もう少し詳しく教えていただけないでしょうか？

>>442
ところで本当にやりたいのはどういう動作？

Sub aaa()

a = Cells(1, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)
MsgBox a

End Sub

こんなんとか？

>>443
セル位置を指定する為に、"A1"形式のほうがすっきり（文字数が少なく）するためです

>>444
うまくいきました
有難うございました

>>436
>>437
>>439
ありがとうごさいます！明日会社で試してみます。

>>432
遅くなってすいません。
ありがとうございました。
いまいち理屈が分からないんですが、コピペして
実行したら、完璧にできていたので、感謝感激です。
理解できるように勉強します。

【1 OSの種類 　 　 　 　 .】 WindowsXPpro 【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ 【4 VBAでの回答の可否】 否
勤続年数を計算するのに下記の数式を使うと
�@ =DATEDIF(G5,$J$1,"Y")&"年"&DATEDIF(I5,$J$1,"YＭ")&"ヶ月"
�A =DATEDIF(G8,$J$1,"Y")&"年"&DATEDIF(I8,$J$1,"YＭ")&"ヶ月"
�@20年6ヶ月 �A20年1ヶ月と表示されます。入社日は�@、�A同じです。
J1には =TEXT(NOW(),"yyyy/mm/dd")と入れています。
日付はシリアル値です。
何が問題でしょう、よろしくお願いします。

脳だな

【1 OSの種類】 WindowsXPpro
【2 Excelのバージョン】Excel2003
【3 VBAが使えるか】いいえ
【4 VBAでの回答の可否】否

今、会社で上司からエクセルの使い方について質問されたのですが、
答えられず困っています。
上司は、一つのセルに　（８／１〜８／８）　と入力する時に
日付（８／１）を打ち込むだけで↑を全て表示されるようにしたいと
言っています。。。どのように数式か、書式を変えればできるのか？
また、不可能な事なのか。わかる方いますか？

>>450
オートコンプリート機能じゃだめなのかね？

>>450
方法は沢山あるが、使用状況が分らない
情報が少なすぎ！

IMEの単語登録で８／１って打ったら８／１〜８／８に変換されるようにしとけ

書式
↓
セル
↓
表示形式
↓
ユーザー定義
↓
#"/1〜8/8"　と入力
↓
OK
↓
セルに８を入力

>450
同じセルはだめ。
別のセルに　=TEXT(A1, "m/d") & "〜" & TEXT(A1+7,"m/d")

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 シート名参照　ハイパーリンク　エラー

質問はふたつあります。

ワークシートの名称をＳｈｅｅｔ1は「X」、Ｓｈｅｅｔ2を「Ｙ」とします
「X」のセルA1の値が「Ｙ」だったらセルA2に、「Ｙ」のセルＡ1を返す。
というように、シート名自体を参照させてＩＦ関数を作りたいのですが
うまくいきません。どうぞお願いします。

また、エクセルのファイルを作成したものと別のＰＣで開いた際、
ハイパーリンク（同じブック内）をクリックするとエラーになると言われました。
（ＸＰ機　管理者がどうとかいうメッセだそうです）
わかる方がいたらこちらもお願いします。

>>455
上司には理解できないと思われ
マクロかなんかでどのセルでも出来るようにしたほうがいい

>>456

=indirect(A1&"!"&"A1")　

>>418
まず社員のリストをうｐ

えと、上司が理解できないあほでも何でもいいんですが
入力した値自体が、同じセルで書き換えられる状況
というのは、裂けるべきだと思いますがね。

エクセル９７です。
他のブックにシートのコピーをするとき、数式はコピーされずに計算結果の数字だけがコピーされます。
数式を他のブックにコピーする方法はありますか？

ない

>>458
さっそく明日やってみます！ありがとうございました。

ｍｊｄｋ
97では出来ないのか？( ..)φメモメモ

>>462
ありがとうございます。出来ないんですか‥残念

>>464
９７以降のヤツはどうやってコピーするのですか？
同じ方法で試して見たいのですが‥

上のほうに式があるだろ
それをコピーすればいいんじゃね？ｗ

ワード経由でやれば無問題

Excel2000ユーザーです。

新しく行を挿入しようとすると、選択した行の一つ上の行の属性が
新しく挿入した行にそのまま反映されてしまうのですが、属性を
反映させずに行を挿入する方法はあるのでしょうか。

例えば、A1の行の背景が黄色に色付けしてあった場合に、A2の行を
選択して「挿入」から「行」を選ぶと、新しく挿入された行までもが黄色く
色づけされてしまっているのです。文字の色や太さに関する属性も
そのまま挿入された行に反映されてしまいます。

マクロでいろいろな作業を自動化しているのですが、行を挿入するマクロを
実行したあと、上の行の属性が反映された結果をさらにもとに戻すマクロを
付加しなければならず、できればこの余計なコードをなくしていのですが。

>>468
自己レスです。A1の行という言い方は変でした。
A1と指定した場合はセルという表現が適切でした。行といった場合はAは関係ないですね。
セルの場合でも症状は同じですが・・・。
VBAの知識はほんの少しだけあります。VBAを使った方法でのヒントでも構いません。

>>469
一般の設定で切り替えられるかどうかは知らない（たぶん無い）んだけど、
VBAだったら単純に挿入した個所clearすればいいんじゃないかな？
こんな感じ
ActiveCell.Rows.Insert
ActiveCell.Rows.Clear

こうだな
ActiveCell.EntireRow.Insert
ActiveCell.EntireRow.Clear

俺も挿入したいな・・・

65000行あたりの、まだ汚されていない行をコピーして挿入すれば？

>>466-467
私へのレスでしょうか。

＞上のほうに式があるだろ
９７には無いのかも。

＞ワード経由でやれば無問題
これも駄目でした。

数式を他のブックにコピーするのって、出来そうなのに駄目なんですね。
ありがとうございました。

>>470　>>471
そのコードで解決しました。有難うございました。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 全く駄目
【4 VBAでの回答の可否】 否

A1〜A1000までの数値データを使って折線グラフを描かせる場合、
データの位置によってグラフの色を変えたいのですが、やり方がよくわかりません。
たとえば、A1〜A500までを赤で、A501〜A1000までを青でグラフを描かせる、といった具合です。
どなたか宜しくご教授願います。

>>476
複数系列使えばいいよ。
というか､Excelのグラフは1系列内で途中から色変えたり出来ないから
そうでもしないと君の要望は実現しない。データは一つ重なるようにね。
元のデータを移動出来ないなら､参照使っても問題ないし。

A　 B　 C
3
8
2　 2
.　　4
.　　9　 9
　　　　 5
　　　　 1

なるほど、わかりました！
やってみます、ありがとうございました。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

Ａ１に１を入力したらＧ１０に○表示
Ａ１に２を入力したらＨ２０に○表示
Ａ１に３を入力したらＪ３０に○表示

これやりたいんですけど、作業セルが必要ですか。
どうやったら良いでしょう？

if(a1=1,"○","")

G10=IF(A1=1,"○","")
H20=IF(A1=2,"○","")
J30=IF(A1=3,"○","")

>>480-481
ありがとうございます。
すごいですね、２人の方が同じ答えを出してくる
ちょっと感動しました。

>>482
エクセルをやるなら、IF文 だけは覚えておいたほうがイイ。
IF文だけでかなりのことができるし、IF文が使えれば他の関数にも手が出しやすい。
IF文の中にIF文を入れて使ったりしていれば、これもまた他の関数との組合せを理解しやすくなる。

>>479への回答ではないが
=if(A1=0,"○",if(A1=1,"△","□"))
という文を使ってみて、if文の仕組みを考え、理解してみるといい。

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

計算式を入力してあるセルが計算してくれなくなりました。
Ｆ２を押してエンター押すと計算してくれるのですが、どうしてでしょう
教えて下さい

>>484
何らかの設定で保存するときに再計算されるようになったのかな。

ツール-オプションのどっかにあるはず。

>>485
レスありがとうございます
やってみます

ツール　→　オプション　→　計算方法　→　自動


たまに外部からもらった書類を開けたはずみで、何故か自動が手動になってしまうことがある。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 日付計算　時間計算　周期

ttp://www.alib.jp/mabinogi/
ゲームに関するものなのですが、上記のサイトに掲載されているように
終了時刻を元に、個別のチャンネル（サーバー）毎に設定された周期で
次の出現日時を計算するものを作成したいです。
しかしながら、1回出現するごとに周期が決まった値で減少していきます。
（例：30時間周期、1m30s減少の場合→1回出現すると29h58m30s→2回目は29h57m00s)
さらに、周期が24時間を切ると、切った分が48hからマイナスされたものに変動します。

これらの条件等は、分かりやすく上記ページの
「出現周期」「出現周期に関する考察」の欄に掲載されています。


周期が一定の場合は終了時刻を元に次回時刻を計算するシートを作成することができたのですが、
周期が毎回減少するものについては、アプローチの方法が思い浮かびません。
皆様の助言をいただきたいのです。宜しくお願いします。

>>488
秒で考えたら？

できません。

>>488
　　　　A　　　　　　　　　B
初回出現時刻　　　00:01:30(周期短縮)
=A1+B2　　　　　　　30:00:00(周期)
　　　　　　　　　　　　=MOD(B2-B$1,1)+1

｢初回出現時刻｣の位置がA1ね。
表示形式は､A列が｢m/d hh:mm｣､B列が｢[h]:mm:ss｣､
あとはA2とB3の式を下方にフィルコピーすればよし。

B列は非表示にしてもいいし､全く使いたくなければ
｢周期短縮*(ROW()-2)｣とかを補正値として使えば良い。

周期の自動減少はVBA使わないと実現しないな

すみません。
セルに入力した数値から自動的に定数を引いて表示させるのはどうしたらいいのですか？

例：100と入力したら自動的に-10して90と表示させたい。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 VBA rows.count

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column <> 1) Then Exit Sub
'対象となるセルの値が変化した場合に右側のセルの値をクリアする
If (Target.Value = Worksheets("work").Cells(Target.Row, Target.Column)) Then Exit Sub
Target.Offset(0, 1).ClearContents
'Sheet2にセルの値を書き出しする
Worksheets("Sheet2").Cells(Target.Row, Target.Column) = Target.Value
End Sub

以上のコードで特定の列のセルに変化があった時に
Sheet2の値と比較して右側のセルの値をクリアしています。

ここで質問なのですが
セルを1つずつ選択してクリアさせる事は可能なのですが
複数選択して実行すると（例：A1〜A3）エラーになってしまいます
セルを複数選択しても実行させるにはどうしたらよいのでしょうか？

>>493
例えば、別のセルに計算式を入力する
例えば、コピーの減算を使う

>>494
とりあえず
For Each OneTarget In Target
でOneTargetに対して処理

数字をうったら日付に変換されてしまうんですけどどうすれば元に戻せます？
例
１２３→xxxx/xx/xx

excel 2000
win 98

４９７です。解決しました。

もう一つ質問なんですがたとえばCTRL-; で日付をいれるとき月等が一桁の場合"つねに"デフォルトで０を前につけるようにするにはどうすればいいですか？
例
2006/6/6→2006/06/06

excel 2000
win98

>>499
yyyy/mm/dd

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

数値が縦にずらっと並んでいて、その平均を求めたいんですが
平均の期間を10個平均にしたり5個平均にしたり簡単に
変えられるようにしたいんです。で↓のようにしてみたのですが、
K3というのは数値が入っているところの一番上です。L$2は期間の数値です。

=AVERAGE(OFFSET(K3,L$2,0):K3)
これだと10個平均を求めたいときに９を入れなければダメで使いづらいです。
10個平均のときは10と入れれば良いようにしたいです。
よろしくおねがいします。

>>501
=AVERAGE(OFFSET(K3,L$2-1,0):K3)

おぉ！ありがとうございます>>502

>>500
それはどこで設定すればいいんですか？
書式→セル→表示形式　からだとセルごとにしか設定できないようです。
また
書式→スタイル　の表示形式をyyyy/mm/ddにかえちゃうと１２３ってうっても全て日付に変換されてしまいます。

とにかく日付の場合だけつねにどのセルでもyyy/mm/ddの形式に自動的になるように出来ないでしょうか？

WEBクエリで株価を取得してますが、一度に50件くらい（HPに表示されている件数）
しかダウンロードできないんですけど、一回で一年分ダウンロードしたいのですが、
どうやるんでしょう。。。？

>>505
まずはテンプレ嫁

>>505
1年分表示できるようなwebページのアドレスがあればそこで取り込めばおｋ
そういうページが無いなら、1ページずつ読み込むようなVBAを作る。

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 抽出　オートフィルタ

A県　バナナ
A県　りんご
A県　みかん
B県　りんご
B県　ぶどう
B県　なし

このようなリストがあって、このうちA県にはない項目（ぶどう・なし）をすべて抽出するためにはどうしたらよいでしょうか。

>>508
VLOOKUPとかCOUNTIFなどで判別したセルを用意する
あとはオートフィルタ

>>504
"日付"等に標準で用意されてないものは、ユーザ定義で設定する。

【1 OSの種類 　 　 　 　 .】 Windows98SE
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

オートシェイプで矢印を書いたのですが線の色が出ません。
オートシェイプの書式設定で見ると線の色がなしになっています。
色を設定すれば色が出るのですが新たに矢印を書くと色なしに
なってしまいます。その他の図形も色がでませんでした。
どうしたら最初から色のついてる図形になりますか？

>>511
「オートシェイプの規定値に設定」
こんなの見たことないかな？

>>512
わかりました。ありがとうございます。

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

同じスペックのパソコンが２台（ＡとＢ）ありまして、
Ａでフロッピーに保存したファイルをＢで開くと何枚か表示されないシートがあります。
保存の仕方はデスクトップにあるファイルをフロッピーにドラッグ＆ドロップしてます。
何が原因なのでしょうか？よろしくお願いします。

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 WEBクエリ
WEBクエリで株価を取得してますが（ヤフーファイナンス）、一度に50件くらい？（HPに表示されている件数）
しかダウンロードできないんですけど、一回で一年分ダウンロードしたいのですが、
どうやるんでしょう。。。？

>>514
> 何枚か表示されないシートがあります。
エラーで弾かれるのか？
それならそのエラーを書き込まないと、ここにはエスパーいないんだから回答は期待できないよ

>>516
エラーとかメッセージは何も表示されません。
同じブックの６月と７月は表示されるのに８月と９月が表示されないとう感じなんです。

【2 Excelのバージョン 　 】 Excel2003

下記のようにユーザーフォーム上のチェックボックスがABCDと4つある時、
各ボックスにチェックを入れた際にA列のセルに

未入力　→　0　　例1)　ABにチェックなら合計3
A□　　　→　1　　例2)　BDなら合計10
B□　　　→　2　　例3)　BCDなら合計14
C□　　　→　4
D□　　　→　8

のように、組み合わせの合計値を返して入力したいのですが、
どのような条件を設定すればよいのでしょうか？

判定自体は、Select Caseで0〜15までの各組み合わせを返せばいい事までは分かるのですが…。
何方か是非ご教示お願いしますm(__)m

>>518
Function aaa()
a = (CheckBox1.Value = True) * (-1) + (CheckBox5.Value = True) * (-2) + (CheckBox3.Value = True) * (-4) + (CheckBox4.Value = True) * (-8)
Range("A1") = a
End Function

>>518
Cells(1, 1) = (CheckBox1.Value = True) * -1 + (CheckBox2.Value = True) * -2 + (CheckBox3.Value = True) * -4 + (CheckBox4.Value = True) * -8
Select Caseは使っていませんがこれでＯＫ

CheckBoxの番号はご自分の環境に合わせてください

Private Sub CheckBox1_Change()
aaa
End Sub

519のコードを各チェックボックスが変更されたら呼び出すか、
「登録」とかボタンを作ってチェックボックスにチェックを入れた後、
登録ボタンを押して呼び出す。

>>518
チェックボックスは2のn乗の加算で考えると楽だよ。数が増えてもループ処理でいける。
Checkbox1〜Checkbox4という名前で使ってると仮定すると、こんな感じ。

Dim i As Integer, result As Integer
For i = 1 To 4
result = result - Me.Controls("Checkbox" & i).Value * 2 ^ (i - 1)
Next
MsgBox result　'Range("A1").value = result

選択と同時に書き込みたいんならそれぞれのチェックボックスのchangeイベント
とかで上の処理をするサブルーチン呼び出せばいいんじゃないかな。

>>515
> どうやるんでしょう。。。？
自分で考えて。

こういうのを自己解決出来ないレベルの奴に教えると
鯖の負荷も考えないような使い方しだすから､危なっかしくて教えられない。
自分で解決できる奴なら､そういうことを考慮する頭を持ってるだろうけど。

病院行け

>>519　>>520　>>521
皆さんありがとうございます！
やっぱり色々な記述方法があるんですねぇ…超文系の自分のセンスの無さを痛感します('A｀)

>>522
目から鱗というか変な汁が出そうです(つД｀)
やっぱループで回すからには、オブジェクトに変な名前つけたらいかんですね…。
通番とかで管理しないと、ループの括りに入れるだけで膨大な労力が…。
命名規則を根本から考え直すべきなんでしょうね(´・ω・｀)

この方法でループさせた場合、組み合わせをチェックしてフォーム側に返す場合にも
何か効率のいい方法はあるんでしょうか？
下記のように、Select Caseで i のパターンを一つずつ地道に潰すのは死ねますので…。

Case 1: Checkbox1.Value = True
Checkbox2.Value = False
　　　　　Check(ry

(以下全パターンを網羅して記述 orz)

>>483
読めました！
「もし A1 が 0 なら○を返す。A1 が 1 なら△、それ以外なら□を返す。」です。
早く書けるようになりたいです。

>>525
ビット演算という考え方を使います。昔からの伝統的な方法で、
2進数で考えたときの任意のケタのビットが立っているかどうかを
and演算子で計算する方法です。
いきなり言っても分らんのやろうけど、興味があったら2進数とか
ビット演算で調べるといいよ。

で、具体的には各チェックボックスに割り当てた2のn乗の数値と
組み合わせの結果の数値をand演算子で計算して、0にならなけ
ればそのチェックボックスをオンにすればおｋ
簡単な方法だから、みんな２のn乗でふらぐ管理してるんだと思うよ

a = InputBox("数を入れてください")
For i = 1 To 4
Me.Controls("Checkbox" & i).Value = CBool(2 ^ (i - 1) And a)
Next

>>527
解説と回答どうもありがとうございます！
今VBA大全でCboolの項目を読んで理解できました。これはかなり応用できますね。

一応ネットワーク関係者なので、2進数や16進数、基数変換というものは解るのですが
生来の理系センスの無さからVBAなどに応用できないもので…orz

ビット演算は奥が深そうなので地道にやっていきたいと思います。
(RAID5とかでちょっと齧った程度ですので…)
本当にありがとうございましたm(__)m

>>495

＞セルに入力した数値から自動的に定数を引いて表示させるのはどうしたらいいのですか？
＞例：100と入力したら自動的に-10して90と表示させたい。
の質問のものですが、

＞例えば、別のセルに計算式を入力する
＞例えば、コピーの減算を使う

別のセルに計算式を入れてどの様に使うのですか？
それで空白セルに100と売ったら90と表示されますか？
どう入力すれば入力値−10のマクロになるのでしょうか？

>>529
マクロ用ボタンつけるとか、手動でマクロ起動するなら手はあるけれど、
そういうのは無しで数字を-10はほぼ無理と思ったほうが良い。

>>530
セル入力時にアクションおこせばいいだけでしょ
詳しくないならレスしなくていいよ

>>493 >>529
君の場合まず入門書を読みなさい。

やり方は沢山ある、
例ではどこに-10の結果を表示させたいのか分らない
いちいち想像して回答してくれる人は少ないからね！

>例ではどこに-10の結果を表示させたいのか分らない
これはどうでもいい
作業セルが使えるかどうかが重要

↑
同じ意味じゃないのか

>>531
詳しいなら答えを教えてください(-＿-)

入力したセルで１０引きたいんだろ？
できるけど、そういうことはあまりやらないほうがいいと思うよ。
まともなコードが書ける人はほとんどいないし。
ループがやっとまわせる程度の素人マクロならいっぱい書ける人いるが。

すいません、会社のエクセルなんですが
確かに 100 と入力したはずなのに
知らない間に 90 になっています。
間違いの元なので、直したいのですが
どうすれば良いでしょうか。


という質問が出てくる悪寒。

>>536
>できるけど、そういうことはあまりやらないほうがいいと思うよ。
余計なお世話じゃね？

答えられる人がいないからってことじゃね？ｗ

>>493
A列の数値だけなら
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim i As Range
Set rng = Application.Intersect(Target, Me.Range("a:a"))
If rng Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each i In rng
If VarType(i.Value) = vbDouble Or _
VarType(i.Value) = vbCurrency Then
i.Value = i.Value - 10
End If
Next i
Application.EnableEvents = True
End Sub

すまん、インデントが全然付いてなかった。

>>540のコードは標準モジュールに書くんじゃないよ。
A列で10引きたいシートのシートタブを右クリック、(コードの表示)で出てきたモジュールに書くこと

連続データ作成でもう一度-10される

>>540
もうすこし基本を勉強したら？
素人レベルには十分すぎるけどさ。

見せてもらおうか！
プロレベルのコードとやらを。

最低でもi.Valueは変数に入れるのが普通だろ？

>493と>540は今週のベスト・バカップルだな

くだらね

なに照れてんの、お似合いだよ

釣れたよ。

複数のシートが選択されている時（作業グループ時）にセルを編集すると、
警告ダイアログが出るようにできますでしょうか？

【OS:Windows XP Pro】
【バージョン:Excel 2003】
【VBAがつかえるか？:いいえ】
【4 VBAでの回答の可否:否】
【5 検索キーワード:複数のシート Excel 警告 】

なぜ警告が出るか分かる？

VBAなしで出来るのか？

>>552
元々作業グループというのは複数のシートを同時に作業する為のものであるから
その作業をしている上であえて警告を出すのはおかしい　と、言うことでしょうか？

実は、複数のシートを割付で印刷することが多く、
それらシートがとびとびで更に何パターンも出力することがあるので、
普段 「印刷対象」→「選択したシート」で出力をしています。

出力直後等にうっかり、作業グループにしたままセルの編集をしちゃったりしてしまうんです。
気を付けていればいい問題かもしれませんが、もし警告を出せるようにできたらと思ったのですが・・・。

>>551
複数のシートを同時に編集したいの？

>元々作業グループというのは複数のシートを同時に作業する為のものであるから
>その作業をしている上であえて警告を出すのはおかしい　と、言うことでしょうか？
お前おもしろいなｗ

テンプレの使い方が・・ｗ

VBA覚えなされ
指示画面つくれば印刷作業も楽になるだろうに

ところでexcelとかVBAの○投げスレ、どっかにあるのかな？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】

特定の文字のセルだけを選択したいのですが、方法がわかりません。
だれか教えて。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel97
【3 VBAが使えるか　 　 .】勉強中
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】

カーソルがセルを移動するたびに処理を行いたいのですが、どこにどのような記述をすればよろしいのでしょうか？
WORKBOOK SHEET CHANGEのカーソル移動バージョンです

>>560
Worksheet_SelectionChangeでどうかな？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 インポート

ブラウザで表示した住所録などを抽出して、エクセルにインポートする方法がありましたら
教えて下さい。

例えばhttp://search.post.japanpost.jp/7zip/kanji2.cgi?ken=42&city=%93%EC%93%87%8C%B4%8Es&nt=1
こんな住所一覧をエクセルで住所録として管理したいです。

質問です
エクセルです
保護のトラブルなんですが
コントロールボックス（コンボボックス）ありますよね？
あのプルダウンで項目を選ぶやつ。
この箇所を非保護に設定するのどうしたらいいんでしょうか？
それとも不可能なんでしょうか？
コントロールボックス(コンボボックス）の保護のロックを解除にしてもだめでした
どなたかしりませんか？
【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】できない
【4 VBAでの回答の可否】 不可
【5 検索キーワード 　 　 】セルの保護

>>561
こんなのあるんですか。試してみます。ありがとうございました

>>562
そのままの機能があるでしょ

よろしくおねがいします
エクセルで提案書を作成しているのですが，シートでは同じ大きさの
ヘッダーを使用していても，印刷すると（拡大・縮小するので）大きさ
や全体のバランスが不揃いになります

なんとか楽に提案書の体裁を統一する方法はないものでしょうか？？

その一案としてpptのリンク貼り付けを考えているのですが，バックアップ
のためにファイルの名前を変更すると，当たり前ですがリンクが外れて
しまいエクセルでの値が反映されません
それだけが不満です

良案ないものでしょうか

>>563
コントロールツールオブジェクト(コンボボックスとかチェックボタンとか)は
VBAで使うために存在するオブジェクトです。全ての操作はVBAで行います。
VBA使えない人はまだしも､VBA使いたくない人は､コントロールツールも使わないでください。


>>566
http://pc5.2ch.net/bsoft/kako/1025/10255/1025524380.html

>>567
使いませんが
ところで非保護にはできなんでしょうか？

ヒント：にくちゃんねる

>>568
意味無くあげるのはよそうね
あと567のレスで理解出来ないなら
もう来ないでくださいね

わかるわけねーだろ

>>562
[データ]-[外部データの取り込み]-[新しいwebクエリ]でいけるかな

出来ないでFAｗ
かえれ

>>566
よくわからんけど、ヘッダだけあらかじめ印刷しとけばいいんじゃない？

よくわからんけど、最初から紙に書けばいいんじゃね？

>>568
移動とか大きさ変更とかの編集は「ロック」のチェック外しとけばできるはず
リストやリンクするセルがある場合には、そこもロック外しておかないと
駄目なんじゃね？

>>573
おまえには出来ないんだろうな

どだい保護のロックに言及してるのにActiveXコントロールと勘違いするような
VBA脳には無理な相談だったな

>>578
おまえ､恥ずかしいな。

>>570
意味無く上げて見ましたが
　　　な　に　か　？

>>579
どこが？どう恥ずかしいのかご教授頂けませんか先輩。
ああ、もしかしたらVBAじゃないと解決できないっ☆って思い込んでるとこでしょうか。
それとも自分の脳内説明の前提は他人も理解してないとおかしいと思ってるとこかなあ？
もしかしたら、説明が否定されると人格否定されると思ってるとこかな？
わっかんないやー。悪いとこは直すから教えて大先生様

>>581
糞質問者にヒントは出すなよ・・・
遠回しに煽って楽しむ流れだろうに・・・

>>582
おまえ、恥ずかしいな。

せめて質問の内容に答えてくださいよ大先生様ｗｗｗｗ

ああ、すみません。大先生の残りカスみたいなプライドまで奪うつもりはないんで。
てか、どうでもいいんで、この変で消えます。
スレ汚し失礼しました。

空気読めない人は
読解力ないのかな

お、逃げた
捨て台詞まで吐くとは負け犬根性全開だな

質問です。

A2に「=A1」と入っています。
ここでA2にセルを挿入し、下方向にシフトしてA2がA3に移動します。

すると、A3はA2のときと同様「=A1」となります。
これを「=A2」と変化するようにしたいのですが、どうすればいいのでしょうか？

説明補足

A1「」
A2「=A1」
が
A1「」
A2「」←行の挿入
A3「=A1」←A2の内容のまま
となるのを、
A1「」
A2「」←行の挿入
A3「=A2」←1行下にシフトした分、参照セルも1行下にシフト
になるようにしたいということです。

なぜこんなことをしたいかというと、
1行前のデータを参照する表を作っており、しかも行の挿入を行うことがあるからです。

>>588-589
A2=OFFSET(A2,-1,0,1,1)で

だったら最初から指定セルを参照する式ではなく
一つ上のセルを参照する式書けばいいじゃん。

どう書くのかとかは聞かないでね。ヘルプに載ってるから。

┌───────────────────────────
│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　�U
│グラフウィンドウ　　　　　　　　　　　　　　　　　　　　 �U
│　　　　　　　　 ここまでがﾓﾆﾀに表示される部分→�Uこれより右は、画面の外
│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　�U
│　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　�U
└───────────────────────────
├──┼──┼──┼──┼──┼──┼──�U──┼──┼──┼
│ﾃﾞｰﾀ│　　　│　　　│　　 │　　　│　　　│　　　�U画面の外
├──┼──┼──┼──┼──┼──┼──�U──┼──┼──┼
│ﾃﾞｰﾀ│　　　│　　　│　　 │　　　│　　　│　　　�U画面の外
├──┼──┼──┼──┼──┼──┼──�U──┼──┼──┼
│ﾃﾞｰﾀ│　　　│　　　│　　 │　　　│　　　│　　　�U画面の外
├──┼──┼──┼──┼──┼──┼──�U──┼──┼──┼
│ﾃﾞｰﾀ│　　　│　　　│　　 │　　　│　　　│　　　�U画面の外
├──┼──┼──┼──┼──┼──┼──�U──┼──┼──┼
│ﾃﾞｰﾀ│　　　│　　　│　　 │　　　│　　　│　　　�U画面の外
├──┼──┼──┼──┼──┼──┼──�U──┼──┼──┼
│ﾃﾞｰﾀ│　　　│　　　│　　 │　　　│　　　│　　　�U画面の外
├──┼──┼──┼──┼──┼──┼──�U──┼──┼──┼

図が大きくてすみません。質問させてください。
Ａ列にﾃﾞｰﾀが縦に順番に入力される状態で、その値をグラフにプロットするというｼﾝﾌﾟﾙなシートがあります。
この状態でﾃﾞｰﾀを入力していくと、やがてグラフは画面の外でプロットする状態になります。
これを常にプロットした点を追い続けるようにするにはどうすればいいでしょうか？
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 はい

>>590
ありがとうございます。
簡潔なお答えいただき感謝です。
回答より薀蓄重視のレスで、しかも正答より亀レスな>*91氏もありがとうございました。

頭の悪い奴ほど回りくどいし的確でない情報を連ねるからな。
キレる奴は一行の回答で十分。

長ったるしい蘊蓄もアレだが>>593-594みたいなのはもっと哀れだなw

自分の意見すらなく
他人をけなすだけの595よりはマシじゃない？

↑
毎度のパターンの後、必ずこの手のレスがつく

> 自分の意見すらなく
> 他人をけなすだけ
そういう意味では少なくとも594は595と同じレベル。
あれが意見だというなら595も意見だし。

結論
>590　＞＞＞＞＞＞＞＞＞＞　他

煽るだけじゃなくて
回答も書けよ

>>578
そうなんだよね。
ＶＢＡがつかる使えないとは別にして何か操作方法があるはずなんだけどねえ。
結局だれもわからないのかあ・・・
ググっても出てこないし困ったなあ・・

>>589
自動再計算関数のOFFSETより名前の定義を利用した方がいいよ。
たとえばSheet1のB2にカーソルを置き、名前の定義で「上」と定義、参照範囲を=Sheet1!B1とすれば、
A2で=上とすれば２行目に行挿入してもA3の式の=上はA2を参照する。

どうか教えてください。
Microsoft Office Excel 2003をWINの2000で使用しています。

毎月の売上を管理しているのですが、
小数点以下を切り捨てて計算をするにはどういう作業をすればいいのでしょうか？
0.00
→0.0
というボタンを押して隠して計算していたのですが、
隠れていた小数点以下の部分が足されて1円繰り上がったりして悩んでいます。
そんなセルには、結局電卓で計算して打ち込むという効率の悪さ…。

条件付書式の所もいじってみたのですが、上手くいかず…
データの入力規則の条件の設定を
・入力値の設定→小数点数
・データ→次の値以上
・最小値→0
にしてみたんですが、これで合っていますでしょうか???

Ａ1のセルに　"バナナ"　もしくは　"リンゴ"　もしくは　"みかん" 以外の文字が入っていた場合、
A1のセルの背景色を変えるというマクロを教えてください。

バナナ以外の場合とした場合はこれで何とかいけました。
If Not Range("A1").Value = "バナナ" Then
Range("A1").Interior.ColorIndex = 10

バナナとリンゴとみかん以外の場合について、どうぞよろしくお願いします。

>>603
切捨ては関数の　INT，ROUNDDOWN　などでどうぞ

>>604
AndやOrを使うと良いです

素人的な質問で申し訳ないんですが
あるセルの値がマイナスであれば、その隣のセルに
ゼロを、正の値であれば隣のセルにそのままその値を
表示させたいんです。
この、前半の部分についてはIF関数を使って解決でき
たんですが、後半がやりかたがわかりません。

一応いま

=IF(任意のセル<0,"0","")

というふうにして、マイナスの値が出た場合は
強制的に一律ゼロを表示させるという部分はできて
いますが、正の数の場合、空欄になってしまいます。
仮に"任意のセル"とやっても、そのセルに入っている
数値ではなく、“T15”とかそのままストレートに
文字が表示されてしまいます。

後半の“正の値であれば隣のセルにそのままその値
を表示”させるというやりかたのわかる方は
ご教授願います。わかりにくくてすみません。

｢"任意のセル"｣じゃなくて｢任意のセル｣でよろしく。

,　と　"　の置き場所がわかんない

>608
ありがとうございます。

=IF(任意のセル<0,"0",任意のセル)
で行け

ということでしょうか？
そうしたらFALSEと表示されてしまうんですが…。

>>607
=IF(T15<0,0,T15)
=MAX(T15,0)
表示だけでよければ、表示形式をG/標準;"0"

607です。
ありがとうございました。でけました。

初めまして。質問なのですが
行の幅を広げたときに、行番号の表示が幅の下に合わせて表示
されるのですがこれを中央（又は上）に表示したいときはどう
操作すればよいのでしょうか？

【1 OSの種類 　 　 　 　 .】 Windows　XP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可（他に方法がなかったら）
【5 検索キーワード 　 　 】 エクセル　並び替え　アルファベット　優先　数字

普通に昇順で並び替えを実行すると数字が優先されますが、
数字よりもアルファべットを優先させたいのですが。

具体的には、上のセル→下方向へ
AA-AAAA
AA-AAAB
AA-AAAC
AA-AAA1
AA-AAA2
AA-AABA
AA-AAB1
といった順番に並び替えたいです。
何卒宜しくお願いします。

>>613
セルの書式設定

>>615
レスどうもです。
行の番号自体を中央に配置したいのです。１とか２とか３とか…
列なら表示がいつも幅の真ん中にありますが、これも移動することはできないのでしょうか？

セルの内容をキーボードだけで移動させる事はできますか？

>>614
英数字とハイフン7文字程度ならたとえば
=SUMPRODUCT(FIND(MID(UPPER(A1)&REPT("-",7),{1,2,3,4,5,6,7},1),"-ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789")-1,100^6*1/100^({0,1,2,3,4,5,6}))
などで別の並べ替え用の値に変換してそちらをキーに並べ替える

>>616と>>617
意味不明

>>606
･5 回答内容でわからない部分があっても、すぐに聞き返さずにヘルプやGoogleなどで検索しましょう。

意味がわからないからすぐその意思表示。餓鬼かｗ

すぐ聞き返さずに調べろ。馬鹿。
意味がわからないのは、お前の頭に原因あり。

【1 OSの種類 　 　 　 　 .】 windows2000
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 VBA　フォーム　伝票
伝票を作りたいのですが・・

番号　商品名　　価格
1　　　牛乳　　　　200
2　　　卵　　　　　100
3　　　コーラ　　　150

というような表があるとします。
VBAでテキストボックスを3つ、コマンドボタンを1つ配置し、
テキストボックスに商品番号を入力してコマンドボタンを押すと、残りのテキストボックスに
商品名と価格をだすようにしたいのですが、コードはどのように書けばいいでしょうか？

>>616
見出しの番号は下固定なのよ
行見出し非表示にしてA列グレーに塗って番号振るとかしかないんじゃないかな

>>617
ショートカットキーいろいろ使うとできるんじゃない？
とりあえずは[Ctrl]+[X]で切り取って[Ctrl}+[V]で貼り付けかな
他にもヘルプの「ショートカット キー」に書ききれないほど詳しく載ってるよ

>>623
ありがとうございます、もっと勉強します！

>>621
ブックのどこかに対応する表があれば、そこからひっぱってくるのがいいんじゃないかな？
VLOOKUPワークシート関数になれてれば、そのまんま

a = InputBox("番号を入れてください")
Set tableRange = Worksheets(シート名).Range(セル範囲)
b = Application.WorksheetFunction.VLookup(1, tableRange, 2, False)
c = Application.WorksheetFunction.VLookup(1, tableRange, 3, False)
MsgBox b & ":" & c

みたいな書き方でいいし、他にもいろいろな方法があるよ。findメソッドが楽かな。
かなりはしょって書くとこんな感じ

a = InputBox("番号を入れてください")
Set tableRange = Worksheets(シート名).Range(セル範囲)
b = tableRange.Columns(1).Find(a).Offset(0, 1).Value
c = tableRange.Columns(1).Find(a).Offset(0, 2).Value
MsgBox b & ":" & c

ただ、「見つからなかった場合の処理」も書いとかないとエラーで止まるかもね。
がんばって。

あ、>>625の「VLookup(1, tableRange, 2, False) 」は「VLookup(a, tableRange, 2, False)」だった。
調べる値は変数（この場合はテキストボックスの値かな？） にしないと駄目だね。
ごめんごめん。

>>625
ありがとうございます
VLOOKUP関数、使えるようにがんばってみます

　初歩的な質問ですみません。Excel2002を使っています。

質問：　文字に○をつけるにはどうすればいいですか？

例：　　「男・女」　女の方に丸をつけたい場合。

>>620
意味不明

>>628
>>1からはじまるテンプレ

>>628
初歩的な質問なら
初心者でも努力すれば
自分でなんとかできるのでは？

>>628
なんで無意味な改行をしてるの？
読む人のことを考えないのはなぜ？

>>622
ありがとう。
行の見出しを非表示にするにはどうすればいいのでしょうか？

よろしくお願いします。

【1 OSの種類 　 　 　 　 .】 Windows xp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel　印刷、Excel　プレビュー　など

編集画面上とプレビュー画面では全然違うのをどうにかできませんか？
やっと仕事終わった〜→印刷→うはwwwwセルに納まってねえやwwww
のコンボはもう沢山です（涙

>>633
オプション
>>634
印刷範囲の設定

>>634
どうにもなりません
セルの書式の「縮小して全体を表示する」をチェックする、とか
印刷前にプレビューよりさらにフォントを小さくする
などするとマシになります

初歩的な質問ですがお願いします。

【1 OSの種類 　 　 　 　 .】 Windows xp
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 グラフ　変更　エクセル

職場でエクセルを使って月間データをグラフにしています。9項目のうち、一つが折れ線グラフで
残りは縦棒グラフです。このデータ（表）にもう一つ棒グラフの項目を増やしたいのですが、増やした
項目が折れ線グラフになってしまいます。どうすれば棒グラフに出来ますでしょうか？

>>635、>>636レスどうも

>>636　やはりどうにもならない症状なのですね・・・orz
　　　　　ありがとうございました

プロが集まるスレとお聞きし参上しました。
↓お願いします。
http://pc8.2ch.net/test/read.cgi/bsoft/1156720017/54

>>639
出来る人間はスレ違いなんかに嬉々として答えたりせんよ。

>>640
嫌々で結構ですよ w

VLOOKUP関数について質問です

A1に
=VLOOKUP(20,B1:B6,3,TRUE)
という式を入力、B4に20という数値が入っており、B4以外のB1〜B6には500という数値が入ってます
C〜F列の1〜10行全てに1000という数値が入ってる状態です
A1には#REF!とエラーがでてます。

この状態だとB列の1-6行を検索して20という数字があればその列を含めた3つ左の数字、
1000を返すと思うのですが、エラーがでてしまいます
エラーも調べて無効なセル指定をした場合のエラーということですが、これはどこが悪いのでしょうか？

>642
=VLOOKUP(20,B1:F6,3,FALSE)
TRUEが使いたい場合は、
B列のソートが必要

>>642
B1:D6

>>643>>644
ありがとうございます！
やっとできました。。。
TRUEにした場合、検索値"未満"ということに気付かずに迷ってました

【1 OSの種類 　 　 　 　 .】 Windows 2000
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい （少し）
【4 VBAでの回答の可否】 可
A列
01
02
03
01
01
02
01
02
03
04
これを
A列　 B列
01　　1/3
02　　2/3
03　　3/3
01　　1/1
01　　1/2
02　　2/2
01　　1/4
02　　2/4
03　　3/4
04　　4/4
とこんな感じでAがたまに１に復帰するのを、B列に分数表示させる方法教えてください。

>>637
増やした折れ線グラフを選択して
データ系列の書式設定 〜 軸

>>646
いきなりB列に結果を出そうと考えずに、条件(規則性)を分解して
考えてごらん。少しづつ答えが見えてくるよ！
例えば
１．値が大きくなる場合は処理Ａ、違えば処理Ｂ
２．連続して値が大きくなっている範囲の各個数は

【1 OSの種類 　 　 　 　 .】 Windows XP Pro
【2 Excelのバージョン 　 】 Excel 2002 Sp3
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】
ＶＢＡ activesheet.paste 外部のデータ
ＶＢＡ activesheet.paste エラー　
ＶＢＡ activesheet.paste error
　　　他に　手持ちの関連書籍もみました。


ＷＥＢブラウザに表示されているう文字データを　ＣＴＲＬ＋Ｃで　クリップボードに保持し、
その状態で、エクセルに戻り、マクロを実装するとactivesheet.pasteでエラーがでます。

デバッグ中は動作するので、なにかエクセルの外のデータ（この場合クリップボード）との
データのやり取りがなにかあるのかなと思いましたが、回答が見つかりません。

よろしくお願いします。

>>649
クリップボードのデータとマクロを貼れ

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

エクセルの機能にある、入力規則について教えてください。
入力規則のリストを用いたセルがあります。
├───┼
│　　　　 │▼
├───┼
▼のボタンを押すとリストに入った項目が表示されるとおもいます。
この表示のされ方なのですが、
8項目が表示されて、それ以上の項目はスクロールで表示させるというｽﾀｲﾙになっています。
（これはどのエクセルでもそうなのでしょうか？）

で質問なのですが、この表示の仕方を変更することは可能ですか？
具体的には10個の項目があった場合、
　現在：8個表示+2個スクロール
　　　　↓
　希望：10個表示+スクロールなし
にしたいと考えています。
どうぞよろしくお願いします。

>>651
それは本来コンボボックスというものの役目なんだが､
入力規則のリストは､コレをシート上で手軽に使えるようにしたもの。
手軽さを追求した故に､面倒な設定はしなくていい代わりにしたくてもする事も出来ない。
細かい設定がしたければ､コントロールツールかフォームツールのコンボボックス使いましょう。
まあVBA使いこなせるなら､API使ってドロップダウンのサイズ変更してもいいけどね。

>>652
なるほどリストじゃなくてコンボﾎﾞｯｸｽですか。ありがとうございます。

AutoFilterメソッドを使用して任意のキーでデータを抽出したあと、オートフィルタを解除せずに
全てを表示するように戻すには、どうすればよいのでしょうか？
(＝▼のドロップダウンのオートフィルタで(すべて)を指定した状態にしたい)

AutoFilterMode = OFF ですと、オートフィルタそのものが解除されてしまいます。

3列くらいなら
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3

>>655
なるほど。抽出キーが多数なら、Field:=の値をFor Nextで回せば一発で行けそうですね。
ありがとうございます。

>>647
ありがとうございます。月曜出社してやってみます。

VBA(マクロ)素人なのですが、Excel VBAの"リストＢＯＸ"は最大１０列しか表示できない仕様なのでしょうか？
(２０列ある入力データシートのリストをリストBOXに表示すれば見た目綺麗かなと思いまして........).
どなたか経験、又は知っている人はいますか？(ヘルプに最大列数の規定が出てこないです)

>>658
つ ListView

使い方はVB6の解説を参照。

>>658
ColumnCountプロパティで20指定すればいけるんじゃね？

ListBox1.List = Range("A1:T20").Value　'データ範囲指定
ListBox1.ColumnCount = 20　'列数指定
ListBox1.ColumnWidths = Application.Rept("20;", 20)　'列の表示幅指定

行（のみ）の見出しを非表示にするにはどうすればいいのでしょうか？

>>661
マクロを使う
エクセルのバージョンすら書いてないので
コードは省略

シートを他の人にイジられないように、ロックする方法って確かありましたよね？
セルをロックすることってできます？
他の人も触ることがあるんですが、一部のセルに入力した数式とかを保護しておきたい。
これはさすがに無理ですか？

>>663
いい子だから質問する前にテンプレ読もうね

すまんかった

【1 OSの種類 　 　 　 　 .】 Windows　ＸＰ
【2 Excelのバージョン 　 】 Excel　２００３
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】
【5 検索キーワード 　 　 】

テンプレ使えってことじゃないだろ
▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━

>>665
起動時にパス入力させるマクロでも組めばいいんじゃねｗ

意地悪だなー

>>663
右クリ→保護→表示しないにチェック
ツール→保護→シートの保護→上２つにチェックが入っていることを確認→
ｐａｓｓは好きに汁

意地悪だなー

まねするなよ、ガキっぽいぞ

え？質問の意味分かってないの？？？

意味も無く敏感だね

行（のみ）の見出しを非表示にするにはどうすればいいのでしょうか？
versionは2003です。

「行の見出し」とは何を指しているのかな？
任意の行を非表示にするだけじゃダメなのかぇ

>>675
レスどうもです。
「行の見出し」＝「行番号」です。（一番左の１、２、３…ってやつです。）
ツール→オプション→表示→行列番号のチェックを外したとき行の１、２、３も…
列のA、B、C…も表示されなくなりますが、この行だけを非表示するようにしたいのです。

それはダメだと思う。

>>676
なぜそんなことがしたいんだ？

Excel2003です。
ADDRESS関数で出したセル番地を例えばB7だとします。
それからその列全部を足す（B1からB7まで）関数ってありませんか？
SUMだとうまくいかなくて…よろしくお願いします。

>ADDRESS関数で出したセル番地を例えばB7だと
そこでB7を出すのはいいとして

>それからその列全部を足す（B1からB7まで)
このB1がどこから出てくるのか、Accessには判断しようがない。
最初の行から全てとかの指定は、そういったロジックを人間が書く必要がある。

>>679
ＩＮＤＩＲＥＣＴワークシート関数を使うと文字列からセル参照できるよ。
Ｂ1固定ならこんなかな？

=SUM(INDIRECT("B1:" & ADDRESS(7,2)))

ＥＸＣＥＬ2000です、どうか教えて下さいまし。
３０行くらいある表を他のある部分に食い込ませて挿入したいのですが、
１行ずつ「挿入」をクリックしながら空間を作らないとなりませんか？
他に方法ないでしょうか？

シート１の１行目
シート２の１行目
シート１の２行目
シート２の２行目
　　　　・
　　　　・
　　　　・

としたいということ？

であれば、まずシート１、２、それぞれを１行空き状態にする。
データがそれぞれA〜Cの３列にあるとして、シート２のデータを１行ずらしてD〜Fに貼る。

シート１の１行目
　　　　　　　　　　　シート２の１行目
シート１の２行目
　　　　　　　　　　　シート２の２行目

そのあと、左のA〜C列の空いてる所をCtrlを押しながらクリックしていき選択。
最後に右クリックで削除を選び、左方向にシフト を選んで完成。

【1 OSの種類 　 　 　 　 .】 Windows　ＸＰ
【2 Excelのバージョン 　 】 Excel　２００３
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード 　 　 】 文字数制限　自動　次セル

一つのセルに一定文字数を入力した時点で
次のセルに移動させる事は可能でしょうか？

>>682
シート２とかシート３とか使用した経験が無いのですが、
なるほど、そういう方法があるのですよね
データが１００行くらいあるとすると「３０行のデータＡ」を５０行めから
食い込ませるには、
１．１〜４９業をまずシート２に移行
２．シート２の５０行めからに「３０行のデータＡ」を移行
３．シート１の５０〜１００行めをシート２の８１行目からに移行

　これでよいんですよね。シート１を表示されてる時に「上書き」すれば
　シート２、シート３も自動的に上書きされる、それで間違ってないでしょうか？

>>685
ん？？？１行毎交互にデータを入れ込むんじゃないのか？
>>685の内容だったら100行あるデータの50行目から30行分、
若しくはそれ以上の空行を一気に挿入してしまって
そこに30行分のデータをコピペして、挿入しすぎてしまった空行は削除すればいいだけだと思うんだが。

>682
同じ列にデータがあって、１行おきに差し込みたい時は
補助列にオートフィルで、差し込まれる側を 1,3,5…
差し込む側を 2,4,6… と入れておいて並び替え。

>683
空白を選択するときに、そんな面倒なことはしない。
範囲を選択しておいて、編集→ジャンプ→セル選択→空白セル

>>684
文字数の制御は入力規則で可能。
但し､自動で次のセルに移動させるにはVBA必須。

>>686
＞30行分、若しくはそれ以上の空行を一気に挿入してしまって

　そんな事出来るんですか？
　どうやってするんですか？私も１行ずつしか挿入出来ないと思ってましたが。

>>688
回答ありがとうございます。
ＶＢＡですか・・勉強してみます。

>>576
正解でした。
コンボボックスの参照リンク先をロックをはずしたところ
セルを非保護にできました。
どうもありがとうございました。

結局ＶＢＡはまったく関係なかったですねｗ

>>691
かわいそうな奴･･･

なんだ、>>682 は１行おきじゃなかったのか。
それなら、挿入したい表をコピーして
挿入したい場所でコピーしたセルの挿入。

選択した行数だけ挿入されるのって知らないんだ。。。

>>689
挿入開始行から下にマウスを引っぱって30行分選択して「挿入」する。

【1 OSの種類 　 　 　 　 .】 Windows 2k
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】　少しなら
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 VBA　excel　連番　row

お聞きします。
VBAを使ってセルA7から(A6は見出し行)連番をつけたいのです。
VBAからセルに関数を入れるやり方ならできたのですが、セルを選んだ時に式が
そのまま見えて見栄えがよくありません。
VBAで連番(値)をつける方法を教えてください。
やろうとしてることは、ユーザーフォームでテキストボックスに入力されたら
それをセルB7に入力される。（これはできました）そしたらセルA7に番号が振られるという風に
したいです。データはどれだけ入力されるかはわかりません。
宜しくお願いします。

連番なんか、最後に好きなだけフィルしたほうが速いだろ
何秒かかるんだ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 不可
【5 検索キーワード 　 　 】 セル　数値　代入　平均

一つお伺いしてよろしいでしょうか。
今、セルA1〜A4まで数値を入力してセルA5に1〜4の合計を表示させるという作業をし、その合計を含めた過去３回分で平均を取るという物を作っています。

説明ではいまいち上手く伝えられないので具体的に書くと
A
1 80
2 26
3 61
4 22
5 189（A1〜A4までの合計）
6
7 159(直前に行った時の数字)
8 144（２回前に行った時の数字）
9 164（過去三回分の平均）
このような感じです。

この後、A5に出た数字は次の試行時にA7に、A7の数字をA8に移して常に最新のデータで平均を取り続けたいのですが、どのように組めばそういったことが出来ますか？
VBAはなるべく使わないでやりたいです。
どなたかご教授お願いします

ここんとこシートの作り方が悪くて
処理を難しくしてるケースが多い気がする

>>697
入力値は毎回セルA1〜A4に上書きしてるのかな？
だとしたら平均値を毎回「値複写」していくぐらいかな

複数シートがあるブックがあるんですが、一つのシートを目次として、
ハイパーリンクまで張ってくれるフリーソフトってありませんか？
シェアではあったんですが。。。

>>699
なら買えばいいでしょ
お前の節約のために周りを巻き込むなよ

>>698
解答ありがとうございます。

「値複写」というのが少々分からないので、調べながら作ってみます。

>>701
「形式を選択して貼り付け」→「値」　＜値複写
のことでしょ。

よろしくお願いします。

windowsxp office2003 vba 不可　否

012345
654321
415632
123624
：
とあるデータの一番右の数字が担当者を表しています（例えば1は山田、2は佐藤…などで、担当者は5人です。）
データのすぐ右に担当者名を表示させるにはどうしたらよいでしょうか？
以下、自分でやってみたことです。
1．　RIGHTで一番右を取り出し、別セルに表示させ、数字と担当者名の
　　表を作り、VLOOKUPで表示させる。
2.　1.をifでつなげる。

もう少し簡単な方法があったら教えてください。お願いします。

>>730
別セル使わないで､関数をネストして一つの式で完結させるくらいかな。
つーか､IFは要らないじゃん。

>>704
早々のご回答ありがとうございます。
ということは、数字と担当者の表を作業セルで作ってということですね。


作業セル自体を作らずに表示させるというのは難しい話でしょうか？

>>705
たった５名くらいならCHOOSE関数で十分だろ？
あまり多いのであれば数字と担当者の表を作るのが普通だが。

>>706
ありがとうございます。
CHOOSE関数でやってみます

データ整理に関してなのですが、
リンク元データを自動で並べ替えて表示する方法はありますか？
今までは、『データ→並べ替え』という方法でしてたのですが、
それだと時間と手間がかかるので…
何か良い方法を知ってる方、教えてください。

例えばA1に春、夏、秋、冬が項目のリストがあるとして
夏を選択したら、特定のセル（例えばD22）に移動もしくはリンクすることは可能でしょうか。
春、秋、冬を選択しても同じように、別のセルに移動したいです。

>>709
『夏』のセルを選択⇒右クリック⇒ハイパーリンク⇒ブックマーク
⇒【セル参照を入力してください】に『D22』と入力すれば
『夏』のセルを選択（クリック）した時にD22セルに移動できます。

>>710
ありがとうございます。
・春を選択したらC10
・夏を選択したらD22
・秋を選択したらE30
・冬を選択したらF45
というように、それぞれ別のセルに移動したいのです。
710さんの方法では、1つのセルにしか移動できないみたいなので・・・。

一つのセル内で、入力値によってジャンプ先を変えたいのか?
そりゃVBA必須だ。 Worksheetのchangeイベントに書いておけ。
If Not Target.AddressLocal = "$A$1" Then Exit Sub
select (target.value)

case "春"
target.worksheet.range("C10").activate
(↑こんな感じで夏秋冬も繰り返し)

end select

1 OSの種類 　 　 　 　 .】 Windows２０００
【2 Excelのバージョン 　 】 Excel97
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

セル３個飛ばしのデータで折れ線グラフを描くと、点のプロットになりますが、線でつなぐ方法はありますか？

すみませんが、教えて下さい。
エクセル（XP）で９ページほどの月ごとの集計表をつくり、次月の分は
前月のものを開いて修正し、「名前をつけて保存」をくり返していたの
ですが、データ量はほとんど変わらないのに、ファイルサイズは倍々
ゲームのように増えていき、最初は数百キロバイトだったものが今では
６メガバイトくらいにふくれあがっています。
原因はなんなのでしょうか？また、解決方法はあるのでしょうか？

【1 OSの種類.】 WindowsＸＰ
【2 Excelのバージョン 】 Excel　２００３
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード 】 なんと検索すれば良いのか分かりませんでした。


高校3年の者です。
今、学校の授業でHP作成をやっているのですが、作品が完成し、自分以外の生徒の評価を付けるためにExcelで表を作りました。
その表は様々な点から点数を表に入れていき、足していくのですが自動的に計算できる方法がどうしても分かりません。
どうか教えて下さい。
長文すみません･･･。

>>715
＞様々な点から点数を表に入れていき、足していく

　　　　　　　　技術　　内容　　表現　　　合計　　←様々な角度から評価し
鈴木一郎　　　19　　　 15　　　　18　　　　52　　←点数を表に入れていき
　　　　　　　　　　　　　　　　　　　　　　　　　　↑ここを自動計算させる

ということでしょうか？
であれば、合計点数を入れたいセルにカーソルを合わせ、
上のメニューにある　Σ　のマークのボタンを押し、そのまま合計したい範囲をマウスで選択し
最後にエンターを押すだけです。

>>713
状況がよく掴めなかったのでハズしてるかもしれんが
グラフオブジェクトを選択(グラフシートを表示)した状態で
[ツール]-[オプション]-[グラフ]
　空白セルのプロット : プロットしない(空白を残す)
を値0とか補間とか変えてみれ

【1 OSの種類.】 WindowsＸＰ
【2 Excelのバージョン 】 Excel　２００３
【3 VBAが使えるか .】 少し
【4 VBAでの回答の可否】　可

変更履歴以外で、セルの値を変更した時、値を変更したセルに
何か印をつける事ができますか？
例えば、セルの値が変わったら、セルの色が赤になる等。

>>712
できました！ありがとうございました！

即答できるのがすごすぎ
VBA勉強しよう…

>>717さん
補完してプロットする、でうまくいきました。
ありがとうございました。

>>718
> セルの値を変更した時
に起きるイベント
つ Worksheet_Change

> セルの色が赤に
するプロパティと定数
つ .Interior.Color = vbRed

>>716
>>715です。
こんなに早く、且つ分かりやすいアドバイスありがとうございます！！
今>>716さんの言う通りにやって出来ました！！
本当に助かりました。
繰り返し感謝致します。

コンボボックスのリストの内容を別のセルの内容によって変えることは出来ますか？
具体的にはA1のセルに銀行名を入れると、A2のセルにその銀行ごとに対応した支店名
(勿論支店のリストは事前に入力済みとして)をリスト表示させたいのですが・・

すいません、事故解決しました

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 no
【4 VBAでの回答の可否】 否

表の一部をいろんなシートから切り貼りして繋いでいくのですが
どのシートから切り取ってきたか解かるように
元のシート名も一緒に切り出したいと思っています。
シート名をそのシート内のセルに表示させる関数ってありますか。

【1 OSの種類.】 Windows2000
【2 Excelのバージョン 】 Excel９７
【3 VBAが使えるか .】 少し
【4 VBAでの回答の可否】　可

開いている全てのファイルのイベントをひとつのファイルのVBAで検知したいのですが、どのようなカラクリで実現できるのでしょうか？
強制的にVBAのコードを全部のファイルに潜り込ませるとかそういうのでもいいです

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 少しだけ
【4 VBAでの回答の可否】 可

A列に田中、山田、鈴木、田中、鈴木、井上・・
など文字列が順に入っている時、重複しているものを全て見つけるにはどうすればいいでしょうか？
(この場合は田中と鈴木)
上から順に検索しても見付かりますが、数が膨大なので一度に見つける方法を知りたいです・・・

>>727
「excel 重複行削除」とかでググれ

>>725
保存してあるという条件で
=CELL("filename",A1)
を加工

>>727
とりあえず重複を問答無用で削除したり見えなくしたりするんじゃなくて「見つける」のが目的なら
A列全体を選択した状態で、メニューの書式から条件付き書式を選択
左端の「セルの値が」を「数式が」に変更して　=COUNTIF($A:$A,A1)>=2　と入力
あとは書式ボタンをクリックして文字を赤くするなりなんなりお好きなように設定してOKを押す

>>728>>730
ありがとうございます！

>>721
ありがとうございます。
そこで、なんですが、targetに相対的なセルの変化のイベントを
起こさせるには、どうしたらいいでしょうか？
絶対的セルのイベントならできるのですが。
なんどもすいません。よろしくおねがいします。

すいません。
自己解決できました。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい(多少は)
【4 VBAでの回答の可否】 可

複数のﾒｰﾙ(ﾒｰﾗｰはOutlookExpress使用)に添付されたexcel内
(若しくはﾒｰﾙ本文内)の決まった位置に入力されている値(氏名,数量 等)を
参照し、１つのEXCELシートに出力(氏名ごと数量一覧 等)する方法って
なにかありますでしょうか？

ｽﾚ違いかも知れませんが、ご助力お願い致します。

【1 OSの種類 　 　 　】 WindowsXP Home
【2 Excelのバージョン】 Excel2003だと思う
【3 VBAが使えるか　 】 いいえ
【4 VBAでの回答の可否】 否

A1〜A10に数式が入っていて、条件を満たすと特定の文章が出て、満たしていないと空白になるようにしてあります。
それを印刷用にB列に写すのですが、A列での空白セルを省いて、上へ詰めて表示したいのですが、何かいい方法があるでしょうか？

ジャンプで空白セルを選択して削除

数式入ってるとジャンプの空白セルとしてカウントされないんじゃね？
手作業なら作業用の見出し行いれてオートフィルタ→空白以外のセルでコピー＆ペースト→フィルタ解除
関数式はわかんね

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 ExceL2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

A1のセルに１と打ったら『山田』　２と打ったら『鈴木』　３と打ったら『佐藤』と出るようにしたいです。
足がかりすら掴めてない状況です。どうかよろしくお願いします。

Aの列でした。すみません。

>>738
=CHOOSE()
=VLOOKUP()
etc.

【1 OSの種類 　 　 　 　 .】 Windows**
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード

VLOOKUP関数についてお聞きしたいのですが、
本を見ると、「範囲内の列番号の列を垂直方向に検索する」とあります。

水平方向に検索することはできるのでしょうか？
またできる別の関数があればお教えください。

別のシートでもどこでもいいけど、B列に1、2、3〜
C列に山田〜
A1に=vlookup(A2,b1:c6,2,false)、A2に1、2〜で
詳しくはvlookupでぐぐれ

Excel2004@Mac OS X です

入力規制からのリストについてなんですが
任意のセルをクリックすると右に三角形がでてプルダウンできるようになりますが、
三角形をクリックせず、そのセルをクリックするだけでプルダウンできるようにしたいのです



青色帳簿というシェアウェア販売しているExcelの経理ファイルでそれを実現しており、Excelで
できるのは間違いないようです。ちなみにそのファイルは保護してありどういう風になってるのかは
わかりませんでした

↑の挙動としてはセルをクリックすると三角が右にあらわれ、もう一度セルをクリックするとプルダウン
しました。

age

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

>>741
HLOOKUP

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 多少
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Excel 上付き ^ 変換　vba　

セルの値として，2^11+2^(2/3)　を上付き文字で数式表現してあります．
これを　実際に　”　^　” 　を用いて「2^11+2^(2/3)　」表記に変換したいのですが，
どのようなコードが考えられるでしょうか？
よろしくお願いします．

　11 2/3
２ + ２
を
2^11+2^(2/3)　
に変換したいという意味です．

>>747
こんな感じ？
Dim c As Characters, a As String, i As Integer, f As Integer
a = ""
f = 0
For i = 1 To ActiveCell.Characters.Count
Set c = ActiveCell.Characters(i, 1)
If f = 0 And c.Font.Superscript Then
f = 1
a = a & "^"
End If
If f = 1 And Not c.Font.Superscript Then
f = 0
'a = a & " "
End If
a = a & c.Text
Next
MsgBox a

【1 OSの種類 　 　 　 　 .】 WindowsXP Pro
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

宜しくお願いします。

ROUNDやROUNDDOWNに関してですが、上から○桁目で丸めるという
使い方はどうすればいいのでしょうか？
当方、できるだけ数式バーへの直接入力以外の方法で習得したいです。

>>748
凄いです！
私は，全然違う方向でとてつもなく無駄な事を試していました．
ありがとうございました．

もし，よろしければ今まで使ってきたvbaの参考書籍を教えて頂きたいのですが．

>>749
全体の桁数はわかるわけだから引き算で求まる
あとはヘルプを読む方法で習得してくれ

>>751
レスありがとうございます。
小数点を基準としたやりかたはわかるんです。
ROUND関数を入力したセルをオートフィルで書式をコピー（相対参照で）
した場合に、それぞれの対象セルの総桁数が不揃いだとうまくいかないので
そのやり方を知りたいのです。

【1 OSの種類 　 　 　 　 .】 WindowsXP Pro
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

顧客データなのですが
A列に県名B列に地域住所に分かれています

例
　A　　　　　　　　B
東京都　　　　渋谷区
東京都　　　　足立区

それを結合というか、そのままA列に合体させたいのですが

　A　　　　　　
東京都渋谷区
東京都足立区

恥ずかしい質問なのですが宜しくお願いします

>>753
Z1=A1&B1
ZをAに値のみコピペ

>>753
C列とか使って
=A1＆B1
出た結果をコピー→「値」を貼り付け

>>752
状況がわかりません…。
1000で割ってround(a1/1000,3)とかしたあとに1000掛けるとか
こういうのではないよね？

>>754>>755
こんなに早くレスが返るとは思いませんでした
解決しました、本当にありがとうございました

>>756
説明がヘタで申し訳ないです。

A１に123456
B１に=ROUND(A1, この辺をなんとかして）
↓
B１に123000（上から３桁で丸める）
という設定にしたいのです。

で、A1を相対参照にしておけば、オートフィルで書式をコピーし、
A2、A3等に数値を入れたときにB2、B3に上から３桁で丸めた数値
を返すようにということなんです。

すいません。
自己解決？しました。

A1のセル：1234567890
B1のセル：=ROUNDDOWN(A1,3-LEN(INT(A1)))
↓
B1のセルの値は「1230000000」になる。

これでいけますね。
ていうか、>>751はそういうことだったのかも。
そうだったら失礼しました。

A　　B　　C
9　　/　　14

のとき、「=A1&B1&C1」 として表示させた結果の 「9/14」 を
「値」で貼り付けても日付とは認識してくれないんですね

日付や時間は内部ではシリアル値で扱われるからね
そして文字列で記述された日付や時間をシリアル値に変換する関数が用意されてる
　DATEVALUE
　TIMEVALUE

ほぅほうぅ、なるほど　ありがとう。

【1 OSの種類 　 　 　 　 .】 Windows**
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 不明

直前の（場所が近いという意味で無く）数字と同じ数値・文字
を入れるショートカットってありますか？

直前に入力確定したセルの値ということか？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 不可
【4 VBAでの回答の可否】 可（頑張ってみます）

列A,列Bを交互になるように同じ列にすることは可能でしょうか？
↓このような形です。

A1 B1
A2 B2
A3 B3

↓

A1
B1
A2
B2
A3
B3

よろしくお願いします。

>>764

そうです。お願いします。
F4かと思ってたんですが・・・・

>>737
すぐにレスできませんでしたが、
＞それを印刷用にB列に写すのですが
とあるから、その時点で値貼り付けされているという前提。

>>765
B列のデータをA列のデータの下に移動(A4:A6)
B1に1､B2に3､以下元A列のデータ分だけフィルコピー
B4に2､B5に4､で同じくフィルコピー､B列をキーに並べ替え

3行分くらいだと､かえってまどろっこしいかもしれないが､
この方法は3行でも100行でも､たいして手間は変わらない。

>>766
作らないとありません。
作るにはVBA必須です。

>>768

そのプログラムの行は長いですか？
それを書き込むとなんか影響されるんすか？

=vlookup(A1,B1:D4,3,FALSE)の範囲（Ｂ1:D4)と列（３）はそのままで検索（A1）だけ
フィルドラッグする方法はありませんか？
フィルドラッグにはこだわりませんが、全部書くのは時間がかかりすぎるので

> そのプログラムの行は長いですか？
長い長くないは､個人の感覚で違ってくるので､一概には言えません。

> それを書き込むとなんか影響されるんすか？
それは書いたコードによって違いますし､どういう影響があるかは使用者が判断するものです。
ここでは目的だけ果たせれば影響なんて期にしないという人だけが丸投げを許され
そういうのを気にする人は､自分にコード書くスキルが身に付くまでVBAは控えるか
信頼できるところに金払って作ってもらうかという選択肢になります。

>>770
絶対参照？

>>771

ありがとうございました

すでに数値・文字が入っているセルをマウスを使わず、一部分だけ
修正する（カーソルを入れる）のはどうすればいいですか？

windowsxp office2003 vba 不可　否

01,05,09
02,06,10
03,07,11
04,08,12

このようなデータを

01
02
03
04
05
06
.
.
.
12

このように一列にしたいんですが、いい方法ないでしょうか？
データ数はこんなに少なくなく、コピペでは無理なくらい多いです。
よろしくお願いします。

>>772
ありがとうございました。
すみません、絶対参照なんてすっかり忘れてました…

>>774
F2

>>775
テキストエディタで開いて、カマを改行に置換

>>777
ありがとうございました

>>764
単純に「コピペすりゃええやん？」と思えるのは気のせいですか？

【1 OSの種類 　 　 　 　 .】 Windows**
【2 Excelのバージョン 　 】 Excel2003

数字が入力してあるセルの挿入・削除後、入力していた番号を自動的に変える
ことは出来ますか？
1 　　　　 1　　　　　　1
2 　　　　 2　　　　　　2
3 →　　　 3　　→　　　3
4 　 　　　5　　　　　　4
5 　　 　　6　　　　　　5
6 　　　　　　　　　　　↑
　　　　　　　　　　　 こうしたい

>>781
=ROW()
この関数で行番号が出るから、それを工夫しなさい

>>768
ご返答ありがとうございます！！

…ただ、理解が出来ませんでした　orz

別に理解しなくてもいいよ。
理解出来なくて困るのは君で､俺等じゃない。
困りたくなければ理解するように努力すればいいし。

説明下手指摘されて切れるなよｗｗｗ
意味不明な（と勝手に思ってる）質問には文句言うくせにｗｗｗ

>>734 はスルーですか？

>>786
Outlook（OL）ならVBA使えるからできる。
OEは無理。

>>782
解決しました。
キーワード教えてもらってありがとうございました。

VBAで、アクティブセルがある行の特定の列のセルをアクティブにしたい時は、どうすればよいでしょうか？

＞アクティブセルがある「行」の特定の「列」のセル
ん？意味がわからんが、こういうことか？
Columns(ActiveCell.Column).Activate

>>790
わかりにくくてすいません。
例えば、5行目にアクティブセルがある場合は、B5をアクティブに、
8行目にアクティブセルがある場合は、B8をアクティブにしたいという感じで、
アクティブセルがある行のB列目のセルをアクティブにしたいのです。

それなら
Range("B" & ActiveCell.Row).Activate

【1 OSの種類 　 　 　】 WindowsXP Home
【2 Excelのバージョン】 Excel2000
【3 VBAが使えるか　 】 いいえ
【4 VBAでの回答の可否】 否

Ａ列が日付でＢ列が売上の表を作りました
Ｂ列は日付によっては売上がないのですが、Ａ列をＸ軸にしてＢ列をプロットしたいのですが
値の無い日は無視してグラフを作成したいのですがどうすればいいでしょうか？