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

Excel総合相談所 70 at BSOFT

1:名無しさん＠そうだ選挙にいこう
08/06/09 21:13:34
Excelに関する質問は、ここで！

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

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

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

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

前スレ
Excel総合相談所 69
ｽﾚﾘﾝｸ(bsoft板)

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

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

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

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

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

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

4:名無しさん＠そうだ選挙にいこう
08/06/09 21:14:44
★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法)

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

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

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

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

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

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

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

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

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

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

7:名無しさん＠そうだ選挙にいこう
08/06/09 21:16:16
　　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　||
　　　||　━ 質問のしかた ━
　　　||
　　　||　★1 質問するときは、環境や条件をキチンと書くこと。情報後出しはダメ。
　　　||　★2 要望は具体例や図を使って明確かつ具体的にしる。
　　　||　★3 質問前に>>2-20あたりの注意書きやQ&Aを必ず読むこと。
　　　||　★4 質問テンプレ(雛形)は必須ではないが、
　　　||　　　　OSやExcelのバージョン､VBAの可否などは必須情報。
　　　||
　　　||　　　　　　　　　∧ ∧ 　。
　　　||　　　　　　　　　　( ,,ﾟДﾟ)／　ｼﾞｭｳﾖｳ!!　　　　　　Ｅ[]ヨ
　　　￣￣￣￣￣￣￣ﾉ　　つ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　 / ￣￣￣ ./| ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　　　　　 |￣￣￣￣| | |
￣￣￣￣￣￣￣￣|＿＿＿＿|/｜
　　　　　　　　　　　　　　　　　￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　＼　　　　は～～～～い　　　　　　／
　　　　∧ ∧　　　　∧,,∧　　　∧ ∧
　　　 ( ,,　∧▲　　ﾐ　 ∧ ∧　(　　∧ ∧
　　～（＿(　　∧ ∧＿(　∧ ∧＿ﾐ･д･∧ ∧
　　　　＠（＿(,,・∀・)＠ (　　 *)～ミ＿ ( 　　,,)
　　　　　　＠（＿__ﾉ　～（＿__ﾉ　　～（＿__ﾉ

エクセルの技術的な質問と関係ない議論・雑談は下記スレッドで。

【質問不可】Excel総合相談所スレの雑談・議論スレ2
ｽﾚﾘﾝｸ(bsoft板)

8:名無しさん＠そうだ選挙にいこう
08/06/09 21:18:26
おつ

9:名無しさん＠そうだ選挙にいこう
08/06/09 21:29:08
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 EXCEL 在庫管理

前のスレッドで質問した者です。
引き続きお願いします。

エクセルで在庫管理する方法を教えて下さい。
お客さんの倉庫５ヶ所に欠品を起こさないように商品を納入しないといけません。
対象となる商品点数は13種類です。
管理する期間は過去３ヶ月程度から１週間先の予定くらいまでを考えています。
各倉庫からの出荷情報は顧客のWebサイトから入手することができます。
今後、倉庫数、商品点数ともに変化する可能性があります。

商品ごと、倉庫ごとに基準在庫が決まっており、その数を割ったら商品を補充します。
ただ、人間の判断によって補充のタイミングや量は調整することがあります。
判断の材料として、在庫数量の時系列での変化が見えるようにしたいです。
商品は固定しておいて、各倉庫別に在庫の推移を見たり、倉庫は固定で商品全部の在庫
を見たりしたいです。
日付を固定して商品ごと倉庫ごとの在庫数量一覧も表示させたいです。

何かいい方法ありませんでしょうか。
よろしくお願いします。

10:名無しさん＠そうだ選挙にいこう
08/06/09 21:30:04
>>9
エクセルはそーいうのには向いてない。アクセス覚えてそっち使え、まじで。

11:名無しさん＠そうだ選挙にいこう
08/06/09 21:46:43
>>9
URLﾘﾝｸ(www.google.com)

12:名無しさん＠そうだ選挙にいこう
08/06/09 21:56:51
>>10
アクセスでできるがエクセルでできないのはなぜ？
アクセス固有のどういう機能を使うつもりなんだ？

13:名無しさん＠そうだ選挙にいこう
08/06/09 21:57:39
>>11
その中のどれが回答だ？

14:名無しさん＠そうだ選挙にいこう
08/06/09 22:25:14
>11を見てわからんなら諦めた方がいいよ

15:名無しさん＠そうだ選挙にいこう
08/06/09 22:31:39
>>14
バカが。

16:名無しさん＠そうだ選挙にいこう
08/06/09 22:58:10
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】エクセル　文字列　検索

このスレにはいつも助けられています。
今回もなにとぞよろしくお願いします。

　A列　　　　B列　　　C列　　　　　D列
aba東京　　　東京　　東京都港区…
bcb千葉　　　千葉　　千葉県…
cab奈良　　　奈良　　奈良県…　　

B列にA列と同じ文字列があった場合、D列に
「１」と数字を入れたい場合、どのようにすれば
良いのでしょうか。
基礎的な事かもしれないですが…どうぞよろしくお願いします。

17:名無しさん＠そうだ選挙にいこう
08/06/09 23:05:03
>>16
findとかsearchであるかないかを判定したらどうなん？

18:名無しさん＠そうだ選挙にいこう
08/06/09 23:25:26
>>1
激しく乙

19:名無しさん＠そうだ選挙にいこう
08/06/09 23:45:07
【1 OSの種類　　　　 .】 Windows Vista
【2 Excelのバージョン　】 Excel 2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】時刻　小数点
一秒以下の時間を入力して計算させたいのですが、どうしたらいいのでしょうか？
ヘルプでは一秒までの方法しか見つかりませんでした

20:名無しさん＠そうだ選挙にいこう
08/06/09 23:54:36
エクセル2007だと

Ctrl+D で、上のセルをコピーができないのでしょうか。

21:名無しさん＠そうだ選挙にいこう
08/06/09 23:58:07
【1 OSの種類　　　　 .】 WindowsＸＰ
【2 Excelのバージョン　】 Excel2002
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】エクセル　文字　入力　　＾

質問ですが、セルに文字を入力しようとするとすでに　＾　が入っているんですが、
どうやったらなくせるのでしょうか。
ある日から突然そうなったんですが直し方がわかりません。
よろしくお願いします。

22:名無しさん＠そうだ選挙にいこう
08/06/10 00:00:55
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】名簿　同性　VBA

姓名のリストがあります。ここから苗字のみを抜き出したいのですが。。。

山田　太郎　→　「山田」を抽出

=IF(A1="","",LEFT(A1,FIND($AA$1,A1)-1))　　　＊A1に　「山田　太郎」　AA1に「　」スペース

このように現状は対応しているのですが、同性がいる場合（山田さんが同性　他の人は一人だけ）
山田　太郎　→　山田（太)
山田　次郎　→　山田(次)
米山田　太郎　→　米山田
としたいのです。常に30名程度のリストです。よい解決策をご教授願います。

23:名無しさん＠そうだ選挙にいこう
08/06/10 00:01:38
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】 yeah
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 exe 捨てたい

前スレからの持ち越しです。
VBAでcsvファイルを読み込み、一部を書き換えて
保存するにはどうすればよのでしょうか。

180,65,N
179,62,N
174,57,A

のようなデータがあるとした場合、二行目の
最後の要素”N”をAに書き変えたいのです。

要はcsvの中の一つの要素だけ書き換えたい
のですが無理なんでしょうか。
なんかバイト数が同じだとどうとかGandamが
どうとかよくわかりません＞＜

24:名無しさん＠そうだ選挙にいこう
08/06/10 00:05:42
>16
Ａ列の内容　の一部に　Ｂ列の内容　を含む場合に　Ｄ列に１をセットする、という
考えでいいんですか？

　A列　　　B列　　　C列　　　　　D列
aba東京　　東京　　東京都港区…　１　
bcb千葉　　千葉県　千葉県… 　　空白　"bcb千葉"には"千葉県"は含まれない
cab奈良　　奈良　　奈良県…　　　１

こういうことであれば
Sub test()
For tate = tate_strt To tate_end
If Cells(tate, 1).Value Like "*" & Cells(tate, 2).Value & "*" Then
Cells(tate, 4) = 1
Else
Cells(tate, 4) = ""
End If
Next tate
End Sub
でいいかと思いますが。
tate_strt tate_end はデータの行範囲を指定してね。
Like演算子とＢ列の内容の前後に*をつけて判定するので、Ａ列がaba東京都、
Ｂ列が東京でもＤ列は１になります。Ｂ列が空白の場合があるならばその場合の
処理を加えてみてください。

25:名無しさん＠そうだ選挙にいこう
08/06/10 00:14:36
>22
リストをまず「姓名」列でソートしてからでないと無理では？
同一姓の別人がいるかどうかの判定やら、その場合に先に処理した同一姓の人に(名の１文字目)を
付加するとか、かなり複雑になりますね。

それから、３０人程度の名簿の中に　「田中　一郎」と「田中　一夫」が存在するような場合は
ないんですか？

26:22
08/06/10 00:22:58
>>25
情報の不足申し訳ありませんでした。
リストは、「姓名」列にてソートした状態になっています。

＞それから、３０人程度の名簿の中に　「田中　一郎」と「田中　一夫」が存在するような場合は
＞ないんですか？

このようなことも考えられます。ただ、確率的には少ないので、複雑な処理になるのであれば、手動で対応しようとも考えております。

27:名無しさん＠そうだ選挙にいこう
08/06/10 00:32:13
Ａ列：姓名　　Ｂ列：姓だけ　　Ｃ列：名の１文字目だけ　　Ｄ列：求める内容
として考えてみます。

１回目のループでＢ列とＣ列を設定し、
２回目のループではＢ列で上下のセルに同一の内容（同一姓）の判定を行い、
　　　　　　　　　同一姓がなければＢ列の内容を転記、
　　　　　　　　　同一姓があるならばＢ列の内容＋"（"＋Ｃ列の内容＋"）"を転記
Ｄ列の内容に同一のものがあるときは（見ればわかるので）、手作業で修正

という流れでいいでしょうか？　25で示したような場合　田中（一）がふたつ並ぶので
マクロ実行後に手作業で修正するということです。

28:22
08/06/10 00:41:25
>>27
まさしくその通りです。よろしくお願いします。

29:名無しさん＠そうだ選挙にいこう
08/06/10 01:03:06
>>28
不完全だけど、こんなんでいいのか？
=IF(OR(B1=B2,B2=B3),IF(OR(C1=C2,C2=C3),A2,B2&" ("&C2&")"),B2)

URLﾘﾝｸ(aaabbbccc.s6.x-beat.com)

30:名無しさん＠そうだ選挙にいこう
08/06/10 01:04:43
>>23
書き換える前と後で文字数が同じでなければ、全体を読み込んで全体を保存するしかない

31:名無しさん＠そうだ選挙にいこう
08/06/10 01:07:20
>>21
どういう状況なのか、「勝手に入る」の意味がよくわかんないんだけど、
Excelを起動したら、最初からこうなってるってこと？
↓
URLﾘﾝｸ(aaabbbccc.s6.x-beat.com)

32:名無しさん＠そうだ選挙にいこう
08/06/10 01:09:13
>>20
できる

33:名無しさん＠そうだ選挙にいこう
08/06/10 01:15:18
>>19
1時間23分45.6789秒なら1:23:45.6789と入力すればいいだけ。そのまま普通に計算も出来る。
書式をいじらないと0.1秒の単位は表示されないけど。

34:名無しさん＠そうだ選挙にいこう
08/06/10 01:18:01
>>12
できないわけじゃなくて、ソフトには向き、不向きというのがあってだな。
無駄な労力はかけたくないんだよ。
ペイントをワープロのかわりに使うのも不可能ではないけどやりたくない、そういう感じ。

35:名無しさん＠そうだ選挙にいこう
08/06/10 01:22:24
>>31
返答ありがとうございます。
数式バーに勝手に入力されているという意味です。

36:名無しさん＠そうだ選挙にいこう
08/06/10 01:24:14
>29
すごいですね。こちらはVBAでやってみました。
重複する部分がたくさんあるので手続きをまとめるといいんだろうけど、とりあえず。
Sub test()
' １回目のループは省略します
' ２回目のループ
　　For tate = tate_strt To tate_end
　　　　Do
　　　　　　If tate = tate_strt Then '先頭行
　　　　　　Else '以外ならばひとつ上のデータと比較
　　　　　　　　If Cells(tate, 2).Value = Cells(tate - 1, 2).Value Then
　　　　　　　　　　Cells(tate, 4).Value = Cells(tate, 2).Value & "(" & Cells(tate, 3) & ")"
　　　　　　　　　　Exit Do
　　　　　　　　End If
　　　　　　End If
　　　　　　If tate = tate_end Then '最終行
　　　　　　　　If Cells(tate, 2).Value = Cells(tate - 1, 2).Value Then
　　　　　　　　　　Cells(tate, 4).Value = Cells(tate, 2).Value & "(" & Cells(tate, 3) & ")"
　　　　　　　　Else
　　　　　　　　　　Cells(tate, 4).Value = Cells(tate, 2).Value
　　　　　　　　End If
　　　　　　Else '最終行以外ならばひとつ下のデータと比較
　　　　　　　　If Cells(tate, 2).Value = Cells(tate + 1, 2).Value Then
　　　　　　　　　　Cells(tate, 4).Value = Cells(tate, 2).Value & "(" & Cells(tate, 3) & ")"
　　　　　　　　Else
　　　　　　　　　　Cells(tate, 4).Value = Cells(tate, 2).Value
　　　　　　　　End If
　　　　　　End If
　　　　Loop While (0)
　　Next tate
End Sub

37:名無しさん＠そうだ選挙にいこう
08/06/10 01:24:42
>>35
まだわからん。もうちょっと因果関係を詳しく書いて。
どういう順番でキーを押すと、どのキーを押した直後に「^」が入る、みたいな。
ただ、聞いたことのない症状だから回答できない可能性が高いけど。

38:22
08/06/10 01:27:45
>>29
ありがとうございます。確認してみました。
D列はまさしく求めている値が出ました。が、名前だけを抜き出すC列がうまく処理できてないみたいで。。。
C列はどのようにしたのでしょうか？姓と名の間には半角スペース一つ開いています。

39:名無しさん＠そうだ選挙にいこう
08/06/10 01:28:04
>>34
あまりうまくない例えだな。
アクセスで作るならどう作るつもり？

40:21
08/06/10 01:35:16
>>37
たびたびすみません。
普通に立ち上げて、文字を入力しようとセルを選びます。
そうすると数式バーにすでに　＾　が入っている、という感じです。

41:名無しさん＠そうだ選挙にいこう
08/06/10 01:36:24
>>30
㌧です

42:名無しさん＠そうだ選挙にいこう
08/06/10 01:36:34
>>39
まず、リストにデータを追加したり削除したりするのがExcelだと面倒。
Accessだと削除すると空いた行を自動的に詰めてくれるし、追加すると自動的にソートしてくれる。
厳密には違うけど、そんなイメージで使える。

Excelだと作業用の列やシートを用意したり関数を書いたり、そういう処理をいちいち書かなきゃならない。
不可能じゃないけど無駄な労力だと思う。

43:名無しさん＠そうだ選挙にいこう
08/06/10 01:42:00
>>42
それエクセルの全否定じゃないか。
在庫管理どころかあらゆることにエクセルは向いていないということか。
そこまで言うなら仕方がないが極論だと思うぞ。

44:名無しさん＠そうだ選挙にいこう
08/06/10 01:44:00
>40
いくつか質問します。
新規のワークシートでそうなりますか？
特定のセルじゃなく、どのセルを選んでもそうなりますか？
そのまま[Enter]を押したらセルに^が入力されますか？
新規ワークシートではＡ１セルが選択された状態ですが、数式バーには＾が入ってますか？
そしてＡ１セルには^が表示されてますか？
セルを選択する方法には２種類ありますね。セルをクリックする方法とセル位置が表示されている
場所に直接セルのアドレスを入力する方法です。初期値のＡ１となっているのをＢ２にして
それでも数式バーには^が表示されますか？

すでに作成して保存してあるブックの、すでに何かデータ（計算式でも可）が入っている
セルをクリックしても＾に置き換わりますか？

45:名無しさん＠そうだ選挙にいこう
08/06/10 01:45:58
>>40
セルになんか入力する時、たとえば

どこかセルをクリック→数式バーをクリック→内容をキーボードから入力→Enterで確定

って順番に操作することになると思うけど、
この場合、2番目の数式バーをクリックすると、その直後に数式バーに ^ が入るってこと？
で、それはBackSpaceキーを1回押せば普通に消せる？

46:名無しさん＠そうだ選挙にいこう
08/06/10 01:48:20
>>43
ようするに「在庫」ってのはデータベースそのものでしょ。
量が常に変動し続ける場合はデータベースソフトを使った方が向いてるってこと。

行数、列数が固定されてる「表」であればExcelのが手軽。

47:名無しさん＠そうだ選挙にいこう
08/06/10 01:51:55
それなら、Accessスレに誘導してあげれば良いじゃん

48:名無しさん＠そうだ選挙にいこう
08/06/10 01:52:02
>>46
Excelって使えねーソフトだな。

49:名無しさん＠そうだ選挙にいこう
08/06/10 01:53:09
このスレッドには在庫管理できる回答者はいないという結論でいいかな。

50:名無しさん＠そうだ選挙にいこう
08/06/10 01:54:48
>>43
Excelはもともと、データをどんどん追加するような使い方は想定されてなかった。
だから行数が65536しかなかったわけだ。
Excelでデータベースを作ったとして、何年も業務を続けてればあっというまにレコードは
6万を超えて破綻するわけだ。

2007で最大行数が増えたのは、そういう想定外の使い方をする人があまりにも多くて
MSが折れたと見るがどうだろう。

51:名無しさん＠そうだ選挙にいこう
08/06/10 01:54:57
使う人次第
駄目な奴は何をやっても駄目
会社に泊まり込んで2chやってる俺も駄目人間だけどな

>>49
その結論でOK
在庫管理の件は終了です

52:21
08/06/10 02:00:58
>>45
会社のＰＣなので細かくは今説明できません、すみません。
（間違ってしまうかもしれないので）
しっかり確認してきます。

53:名無しさん＠そうだ選挙にいこう
08/06/10 02:01:37
>>50
個性的な説だなあ。
私はそうは思わない。

54:名無しさん＠そうだ選挙にいこう
08/06/10 02:03:00
「俺なら出来る。やらないけどな」っていう、口だけのやつなら何人もいた。
やらないのはできないのと同じだってうちのばあちゃんが言ってた。

55:名無しさん＠そうだ選挙にいこう
08/06/10 02:12:01
>>50
行数は65536もある。
65536行で十分な業務に対してはそんないいわけは通用しない。
アクセスにだって制限はあるのだから。

エクセルはそういうことに向いていない。
エクセルはもともとそういうことを想定していない。
なんでそんなこと勝手に決めるの？

56:名無しさん＠そうだ選挙にいこう
08/06/10 02:18:08
>>23
暇に任してコード書いたよ
てか、こんなんテキストエディタでやれ

Dim rootFolder As String
Dim fileName As String
Dim fileNumber As Integer
Dim byteBuf() As Byte
Dim strBuf As String
Dim buffer1 As Variant
Dim buffer2 As Variant
Dim i As Long

rootFolder = CreateObject("WScript.Shell").SpecialFolders("DeskTop") & "\"

With Application.FileDialog(msoFileDialogFilePicker)
　　.InitialFileName = rootFolder
　　.Filters.Add "CSVファイル", "*.csv"

　　If .Show = -1 Then
　　　　fileName = .SelectedItems(1)
　　Else
　　　　MsgBox "ファイルを取得できませんでした", vbExclamation, "エラー"
　　　　Exit Sub
　　End If
End With

つづく

57:56
08/06/10 02:18:28
つづき

fileNumber = FreeFile()
ReDim byteBuf(FileLen(fileName) - 1)

Open fileName For Binary Access Read Write As #fileNumber
Get #fileNumber, , byteBuf

strBuf = StrConv(byteBuf(), vbUnicode)
buffer1 = Split(strBuf, vbCrLf)

For i = LBound(buffer1) To UBound(buffer1)
　　If buffer1(i) <> "" Then
　　　　buffer2 = Split(buffer1(i), ",")

　　　　If buffer2(UBound(buffer2)) = "N" Then
　　　　　　buffer2(UBound(buffer2)) = "A"
　　　　　　buffer1(i) = Join(buffer2, ",")
　　　　End If
　　End If
Next i

Put #fileNumber, 1, Join(buffer1, vbCrLf)
Close #fileNumber

58:名無しさん＠そうだ選挙にいこう
08/06/10 02:19:11
マリーアントワネット「AccessがだめならSQLサーバを使えばいいじゃない」

規模に合わせて使い分けろ。
能力もソフトの値段も違うし。
小さい事務所ならExcelで十分。
で、既製品があるのにわざわざ自分で作るのはどうして？
車輪の再発明はソフトの使い分け以前の問題だぞ。

59:名無しさん＠そうだ選挙にいこう
08/06/10 02:27:28
>>58
再発明というほどのことではない。
標準的なエクセルの機能だけで数分で完成する。
こんなことで再発明を言い出したらエクセルそのものの存在価値すら疑わないといけない。

60:56
08/06/10 02:33:16
>>23
あっ、すまん、2行目だけか
もう直すの邪魔くさい
>>56-57よりもっと簡単だからあとは応用しる

61:名無しさん＠そうだ選挙にいこう
08/06/10 02:35:04
>>58
そもそも規模の問題でできないという話なのか？
そうじゃなくてやり方がわからないんだろ。正直に言え。

62:名無しさん＠そうだ選挙にいこう
08/06/10 02:38:15
正直言うとわからない
言い訳してすまなかった

>>61はできるの？できるならやり方を教えて
お願いします

63:名無しさん＠そうだ選挙にいこう
08/06/10 02:45:36
>>59
おまえバカだなぁ
エクセルは個人で小さい車輪を最発明して自己満足する道具だぞ
知らなかったのか？

64:名無しさん＠そうだ選挙にいこう
08/06/10 02:49:41
>>59
数分てw
どんなに低機能でもそれはないわ。

新規ブックに「データベース.xls」って名前を付けて保存するだけ、みたいな
低レベルな冗談は禁止な。

65:名無しさん＠そうだ選挙にいこう
08/06/10 02:50:19
>>62
ある日付における在庫数は
繰越数量+繰越日からある日付までの入庫数-繰越日からある日付までの出庫数
で求められる。

元のデータをこんな形式にしておく
日付　　区分　商品　納入先　数量
６／１　繰越　ＡＡ　倉庫１　１２５
６／２　入庫　ＡＡ　倉庫１　２００
６／２　出庫　ＡＡ　倉庫１　２５
６／３　出庫　ＡＡ　倉庫１　５０

ピボットテーブルで繰越、入庫、出庫の累計を計算する。
ピボットテーブルに集計アイテムを追加して
在庫=繰越+入庫-出庫
を求める。
これでできあがり。

66:名無しさん＠そうだ選挙にいこう
08/06/10 02:51:09
Excelはね……宇宙なんだよ！

すべての物がそこには詰まっている。
歴史も、夢も、絶望も…！

67:名無しさん＠そうだ選挙にいこう
08/06/10 02:53:49
>>65
おまえは>>9の要件満たしてからデカイ口叩け

68:名無しさん＠そうだ選挙にいこう
08/06/10 02:54:44
>>67
バカが。

69:名無しさん＠そうだ選挙にいこう
08/06/10 03:13:26
データをシートに直入力してピボットテーブルやグラフを手作業で作るだけってw
空のブックをデータベース.xlsで保存したのと変わらないじゃん。
まず子供の小遣い帳と会社の在庫管理の違いを勉強してこい。

70:名無しさん＠そうだ選挙にいこう
08/06/10 03:18:53
>>69
やめろ。見苦しいぞ。
会社の在庫管理だって規模が違うだけでこうやってるんだ。

71:名無しさん＠そうだ選挙にいこう
08/06/10 03:26:12
自分一人でやる仕事ならそれでもいいと思うよ。
ただ、会社だと不特定多数が閲覧したり入力したりする場合があるから、
それならもうちょっと手間をかけてやらないとなあ。
引き継ぎなんか、Excelを丸ごと教えることになっちゃうし。
(知識としてExcelぐらい知ってた方がいい、等の意見はお門違い)

そのへんどうなんだろうね？＞質問者

72:名無しさん＠そうだ選挙にいこう
08/06/10 03:26:48
>>65
お見事。
累計でやるのか。頭いいな。
ひがんでるやつらはかっこわるいなあ。ピボットテーブル使えないなんて文盲だよ。もはや。

73:名無しさん＠そうだ選挙にいこう
08/06/10 03:31:49
>>70
「規模が違うだけ」っていうけど、規模が違うからこそ考慮しなきゃいけないことはいくらでもある。
そういうのを机上の空論と言うんだ。

74:名無しさん＠そうだ選挙にいこう
08/06/10 03:34:41
>>73
バカ？
リアルに同じ方法だよ。

75:名無しさん＠そうだ選挙にいこう
08/06/10 03:44:31
だからさぁ
何度も言ってるけど規模の大きいとこはExcelをデータベースがわりになんか使わないんだってば
Excelでこと足りるってことはピボットテーブルで十分ってことなの

76:名無しさん＠そうだ選挙にいこう
08/06/10 03:49:35
>>75
このスレの回答者はなかなかそれがわからないみたいだね。
エクセルでやるようなことはピボットテーブルでほとんど何でも解決するし、
ピボットテーブルで解決しないようなことはエクセルでするべき仕事じゃない。

77:名無しさん＠そうだ選挙にいこう
08/06/10 04:01:44
仮定の話

1行1レコードとして1シート6万5千件
1年1シートとして1日170件、営業日だけなら1日250件
たとえ1000種類の商材を扱うとしても、すべての品目が毎日出入りするわけはない
こんだけデータが入るんだから、小さな会社の在庫管理はExcelで十分

78:名無しさん＠そうだ選挙にいこう
08/06/10 04:04:13
>>76
小さい会社はエクセルをワープロがわりに使います
悲しいけどこれ現実なのよね

79:名無しさん＠そうだ選挙にいこう
08/06/10 04:19:22
>>71
不特定多数が閲覧、入力するからこそのピボットテーブルなんだけどな。

日付　　区分　商品　納入先　数量
６／１　繰越　ＡＡ　倉庫１　１２５
６／２　入庫　ＡＡ　倉庫１　２００
６／２　出庫　ＡＡ　倉庫１　２５
６／３　出庫　ＡＡ　倉庫１　５０

何の説明がいる？
ピボットテーブルがいいのは、データの形式そのものがビジネスルールを
表現しているところ。VBAではこうはいかない。

80:名無しさん＠そうだ選挙にいこう
08/06/10 04:41:19
不特定多数がかかわる仕事は、誤消去とか入力ミスを防ぐ工夫が必要になってくるんよ
うっかりさんはどこにでもいるから
できるだけ生のデータが入ったシートは隠すとか本質的じゃない部分で手間がかかる

81:名無しさん＠そうだ選挙にいこう
08/06/10 04:50:49
>>80
それはそうだけど、ピボットテーブルとは別の問題だよ。

82:名無しさん＠そうだ選挙にいこう
08/06/10 08:36:21
在庫管理の件については質問者がやる気起こさない限り
誰もまともな解答付けられないと思われ
今までの情報じゃ頭悪い俺には無理。

83:名無しさん＠そうだ選挙にいこう
08/06/10 10:36:49
作成方法に正解なんてありません
ピボットテーブルでもVBAでも質問者が決めれば良い

何を言い争っているんだい

84:名無しさん＠そうだ選挙にいこう
08/06/10 11:52:37
【1 OSの種類　　　　 .】 Windows2000
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】セル　最終　取得

開いていないブックから入力済の最終セル番地を調べたいです。
ググってみたのですが、開いたブックの最終セル取得方しか見つかりませんでした。
開いていないブックから入力済の最終セル番地を取得する方法があればご教示下さい。

85:名無しさん＠そうだ選挙にいこう
08/06/10 12:49:56
調べたい対象のブックの最終番地を、そのブックの特定シートの特定セル位置に
書き込んでおけますか？

書き込めるのであれば、「可」です。
現在開いているブックの適当なセルの計算式に　他のブックの参照　を入れれば済みます。
下の例は、ＤドライブのFolderという名前のフォルダにあるsample.xlsのシート１のＡ１
セルの値を参照しています。
='D:\Folder\[sample.xls]Sheet1'!$A$1

86:名無しさん＠そうだ選挙にいこう
08/06/10 14:08:55
>>55
在庫管理の必要がない所からみればそうかもしれないが、
普通にデータベースとしてみれば、どう考えても少なすぎる
>>50の説はかなりあたってると思う
あとaccsessはPro版(だっけ?高いほう)にしか付いてこないのもネックだよな
メーカーPCだとほとんど付いてこない

87:名無しさん＠そうだ選挙にいこう
08/06/10 14:16:47
>>86
やっと起きたか　自演乙

88:名無しさん＠そうだ選挙にいこう
08/06/10 14:30:48
普通のデータベースを運用した事があるのかしらねえあの人

89:名無しさん＠そうだ選挙にいこう
08/06/10 14:45:08
>>88

ど素人乙

何だ？普通のデータベースって。
「普通の数字」見たいなもんかｗｗ

90:名無しさん＠そうだ選挙にいこう
08/06/10 16:00:06
「在庫管理」って言葉に萌える (;´Д｀)ﾊｧﾊｧ

91:名無しさん＠そうだ選挙にいこう
08/06/10 16:14:47
>>89
キミ有効数字知らなかった人でしょ。

92:名無しさん＠そうだ選挙にいこう
08/06/10 16:14:54
普通じゃないデータベースって正規化されてなかったりデータベース自体に関数が入ってたり
するもののことじゃね?
たまに年齢が入ってたりするのを見かけるが、あれはいただけない

93:名無しさん＠そうだ選挙にいこう
08/06/10 16:15:15
いつからゴミ箱になったんだ

94:名無しさん＠そうだ選挙にいこう
08/06/10 16:38:22
【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2002
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】 average if

家計簿の中から月ごとに出費やらの平均を出したいです。
2007にはaverageifって関数があるらしいですが、これを2002で再現するにはどうしたらいいですか？
検索するとsumif/countifってのがよく出てきますが、セルには○月△日(○/△)と入れてるので
countifじゃカウントできないです(countaifってのは無いみたいですし)
countifで出来るように月と日を別のセルにするしかないのでしょうか

95:名無しさん＠そうだ選挙にいこう
08/06/10 16:40:09
>>94
MONTH関数で月が取り出せます

96:名無しさん＠そうだ選挙にいこう
08/06/10 17:40:19
ありがとうございます
month関数で月の数字を取り出した列を別に作って検索対象にしたら出来ました
別の列を作らずに式だけで処理するのは無理ですかね

97:名無しさん＠そうだ選挙にいこう
08/06/10 17:53:10
>>86
何も全社のデータを処理しようというんじゃない。
一担当者の限られた業務をサポートできればいいだろう。Excelなんてそんなもんだよ。
数万件のデータは人間にとって十分に巨大だ。感性で扱える量じゃない。
理論に基づかないいい加減な手法で操作していたらたちまち破綻してしまうよ。

98:名無しさん＠そうだ選挙にいこう
08/06/10 18:21:25
>>96
ピボットテーブルを試してみなされ

99:名無しさん＠そうだ選挙にいこう
08/06/10 18:26:26
>>94
平均=合計/個数だから
=SUMIF( )/COUNTIF( )
みたいな感じで置き換えればいいんじゃないの？

100:名無しさん＠そうだ選挙にいこう
08/06/10 18:52:11
>>82
すでにパーフェクトな解答が出ているのに今さら何を言ってるんだ？

101:名無しさん＠そうだ選挙にいこう
08/06/10 19:09:45
>>96
作業列なしでも出来るが、SUMPRODUCT 使う奴はアフォとか池沼とかノータリンとか
言われるので、それを覚悟して使ってくれ。それと空白は１月だからね。

B列：データ、C列：日付、F1：集計する月
=SUMPRODUCT((MONTH(C2:C99)=F1)*B2:B99)/SUMPRODUCT((MONTH(C2:C99)=1)*1)

102:9
08/06/10 20:01:16
在庫管理の質問をしたものです。
おかげさまでピボットテーブルを使う方法で解決いたしました。
今日、実際のデータを使っていろいろ試してみたところ、
必要なものがすべて表現できることがわかりました。
これから実務に使っていこうと思っています。
みなさんたくさんのアドバイスありがとうございました。

103:名無しさん＠そうだ選挙にいこう
08/06/10 20:21:55
いいからお前は病院行ってこい

104:名無しさん＠そうだ選挙にいこう
08/06/10 21:40:34
おまいら言い争いはやめておけ。

俺が飛んでもないプログラムを公開してやるから、落ち着いて見てくれ。

Dim 2ちゃんねら AS Long

for A% = 1 to 2ちゃんねら

　IF レス=104 then
MSGBOX("天才")
　ELSE
　　MSGBOX("バカばかり")
　END IF

NeXT A%

105:名無しさん＠そうだ選挙にいこう
08/06/10 21:45:43
WindowsXP
Excel2002
セルに49175.098と入力すると
49175.0979999999に変わるのは
なぜなのか教えてください。

106:名無しさん＠そうだ選挙にいこう
08/06/10 21:48:34
>>105
URLﾘﾝｸ(support.microsoft.com)

107:名無しさん＠そうだ選挙にいこう
08/06/10 22:05:53
>>106
難しそうな話ですね。
よく読んでみます。
ありがとうございました。

108:名無しさん＠そうだ選挙にいこう
08/06/10 22:10:14
末期的スレ

109:名無しさん＠そうだ選挙にいこう
08/06/10 22:12:20
なあに。放っておけば自作自演のQ&Aで病人が地ならししてくれるさ

110:名無しさん＠そうだ選挙にいこう
08/06/10 22:18:40
URLﾘﾝｸ(sugar310.dip.jp)
拡張子をxlsxに変えて開いてください。

このファイルをどうしても印刷したいのですが
手元にあるレーザープリンタ、カラープリンタで印刷しようとしてもグラフが印刷されません。
pdf形式に変えてから印刷しようとしても無理でした。
どなたか助けてください。

111:名無しさん＠そうだ選挙にいこう
08/06/10 23:03:37
>>110
症状が分からんが、普通に印刷できた。
グラフを選択した状態で印刷してみてもだめか？

112:名無しさん＠そうだ選挙にいこう
08/06/10 23:12:29
>>111

印刷プレビューだとなぜかちゃんと表示されているのに印刷出来ないんです・・・

113:名無しさん＠そうだ選挙にいこう
08/06/10 23:19:00
>112
2007っぽいからちょっとやり方違うかもだけど、

グラフダブルクリック
→プロパティ
→オブジェクトを印刷する、にチェック入れる。
デフォルトはチェックが入ってる。

114:名無しさん＠そうだ選挙にいこう
08/06/10 23:48:05
グラフダブルクリックしてもプロパティという項目は出てこないのですが

115:名無しさん＠そうだ選挙にいこう
08/06/10 23:58:35
うちも印刷できんかった。こんなんになる。
URLﾘﾝｸ(downloads.myphotos.cc:8080)

で、青い線を右クリック→データ系列の書式設定→線のスタイル→スムージングのチェックを外したら印刷できた。
なんで人によって結果が変わるんだろう？

116:名無しさん＠そうだ選挙にいこう
08/06/11 00:06:39
>>104
ループ回らんね

117:名無しさん＠そうだ選挙にいこう
08/06/11 00:08:16
だから「飛んでもない」んだろ

118:名無しさん＠そうだ選挙にいこう
08/06/11 00:09:59
変数名が数字から始まってる時点でビルドできません…

119:名無しさん＠そうだ選挙にいこう
08/06/11 00:26:37
すみません。ググっても出来なくて。教えてください。
OS＝XP　エクセル2003　VBA：出来ません。
ひとつのファイルに200シートを作成して例えばすべてのシートのA1の部分に
1～200の数字を入力したいです。
昨年はものの弾みで出来たのですが、完全にやり方を忘れてしまいました。
どうか、よろしくお願いします。

120:名無しさん＠そうだ選挙にいこう
08/06/11 00:47:31
Sub VBA使わないと無理っす()
For I = 1 To 200
Worksheets.Add AFTER:=Worksheets(I)
ActiveSheet.Name = I
ActiveSheet.Cells(1, 1) = I
Next I
End Sub

121:名無しさん＠そうだ選挙にいこう
08/06/11 00:52:33
>119

シート名にも何らかの区別をしているだろうからそこから引っ張った方がよくね？

基本形はこれ。適当に応用しておくれ。
=MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,31)

122:名無しさん＠そうだ選挙にいこう
08/06/11 01:08:23
>>120
今イチ美しくないな

Sub VBA使わないと無理っす2()
　For I = 1 To 3
　　Worksheets(I).Cells(1, 1) = I
　Next I

　For I = 4 To 200
　　Worksheets.Add AFTER:=Worksheets(I - 1)
　　ActiveSheet.Name = "Sheet" & I
　　ActiveSheet.Cells(1, 1) = I
　Next I
End Sub

>>121
200枚のシートをこれから作るのか、もう作ってあるのかが微妙に不明なんだよね

123:名無しさん＠そうだ選挙にいこう
08/06/11 02:24:24
>>122
駄目駄目だなｗ

124:名無しさん＠そうだ選挙にいこう
08/06/11 02:34:21
>>123
あ、先生。
エレガントな回答お願いしますよ。
先生なら3行で十分ですよね。

125:名無しさん＠そうだ選挙にいこう
08/06/11 02:41:43
【1 OSの種類】 WindowsXP
【2 Excelのバージョン】 Excel 2003
【3 VBAが使えるか】多少
【4 VBAでの回答の可否】可
【5 検索キーワード】 WEBクエリ最大桁数セル等

webクエリでデータの取り込みですが
2182874298985 のような大きな数字があると取り込んだセルには
2.18287E+12 のようになってしまいます。
回避する方法はありますか？
わかる方居ましたらお願いいたします。m(__)m

126:名無しさん＠そうだ選挙にいこう
08/06/11 02:50:12
>>125
取り込む前でも後でもいいからセルの書式を変更する

127:名無しさん＠そうだ選挙にいこう
08/06/11 03:19:32
>>126
どうもありがとうございます。

128:名無しさん＠そうだ選挙にいこう
08/06/11 04:47:20
せめてFor Each使ってほしいところだな。
しかし未だに「200枚のシートにVBAで数字を記入」などということをやってるやつがいるのか。
まだまだ啓蒙が必要だな。

>>119
本当にやりたいことは何？
在庫の管理？
売上の分析？
回収の管理？
検収の処理？
ゲーム作成？

129:名無しさん＠そうだ選挙にいこう
08/06/11 05:32:39
For Eachは最初からシートが200枚ないと無理では。
初期状態(シート3枚)からスタートするならこれでいいと思うのだけれど。

もうちょっと簡単にできそうな気はするんだけど俺の知識じゃ無理だ。
先生、教えてください。

130:名無しさん＠そうだ選挙にいこう
08/06/11 05:40:06
>>129
シートを生成してからFor Eachでいいんじゃない。
どうでもいいよ。こんなこと。
バカバカしい。

131:名無しさん＠そうだ選挙にいこう
08/06/11 06:26:43
シート生成のループと値セットのループを並べるのか？
1つで済ませた方がよっぽどいいわな。
わからないからって逃げるのはよくないぞ。おまけに捨てゼリフ。最低のザコだな。

132:名無しさん＠そうだ選挙にいこう
08/06/11 06:34:13
>>131
ほんとうにどうでもいい。
うんざり。

133:名無しさん＠そうだ選挙にいこう
08/06/11 06:40:27
どうでもいいなら黙ってろよカス

134:名無しさん＠そうだ選挙にいこう
08/06/11 06:40:36
>>131
>1つで済ませた方がよっぽどいいわな。
爆笑

次ページ