10/07/21 22:26:43
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
シートに約３００行のデータ（列はＡ～Ｇまで）があるのですが
このデータを奇数行と偶数行で別のシートに分けるにはどのようにすれば良いでしょうか？
ＶＢＡは全くの素人なのでエクセル操作のみでお願いしたいのですが・・・
120:名無しさん＠そうだ選挙にいこう
10/07/21 23:01:00
>>119
その程度の量ならＨ列に１，２，１，２，１，２…ってオートフィルで貼り付けて
１だけ抽出して２シートめへ、２だけ抽出して３シートめへ、でいいんじゃね？
121:名無しさん＠そうだ選挙にいこう
10/07/22 04:31:46
>>119 他には
>>120のようにH列をオートフィルしてから
H列で並べ替えて、それぞれ別シートへC&P
122:名無しさん＠そうだ選挙にいこう
10/07/22 14:19:36
0721 300
1107 5000
6969 10000
1234 5678
0721 1700
のようなデータがあるとします。
１列目が番号で、２列目が価格だとします。
同じ番号の価格を加算してExcelのシートに
書きだそうと思うのですが、どうするのが
最も最適なのでしょうか？
例えば、１行目と５行目は同じ0721です。
マクロを実行させると、他のシートに
0721 2000
と書きだすことになります。
123:名無しさん＠そうだ選挙にいこう
10/07/22 14:40:05
>>122
重複してるものだけ合計して書き出すのか？
それとも重複してないものも書き出すの？
後者ならピボットテーブルだよ。
124:122
10/07/22 15:00:07
>>123
後者の方ですねぇ…片足をつけたまま、ですか…
ピボットはマクロに組み込めませんので、とりあえず
1.ループでA列を読んでいく。作業シートのA列と比較して
値がなければその値を作業シートのA列、金額を作業シートB列に書き込む。
2.A列+1の値を読む。値があればB列に金額を加算。値が無ければ1同様新規追加
のようにしてごり押ししていこうと思います。
125:名無しさん＠そうだ選挙にいこう
10/07/22 15:22:02
>>124
そういう効率の悪いやり方はいかんよ。
データの種類が多いと遅くなるぞ？
ピボットは作りさえすれば、あとはマクロで簡単に操作できる。
記録マクロで範囲の部分を少しいじって、あとは更新だけだから。
どうしてもピボットを使いたくなければ最低並び替えくらいしろ。
同じ値が続く間加算していくだけだ。
あだ花のDictionaryは使うなよ。
126:名無しさん＠そうだ選挙にいこう
10/07/22 21:58:26
>>120-121
ありがとうございます！
127:名無しさん＠そうだ選挙にいこう
10/07/23 04:58:24
2007のVBAのヘルプが使いにくくてたまらん。
VBAXL10.CHMを読みたくてもダミーファイルらしく開くことができない。
どこかにzipファイルで圧縮されてるようだが、どこにあるの？
128:名無しさん＠そうだ選挙にいこう
10/07/23 08:03:05
>>127
VBAのヘルプはVBE→F1で出る
129:名無しさん＠そうだ選挙にいこう
10/07/23 10:05:04
>>128
何故かオンラインヘルプが読めなくなってしまった。
2010betaを入れたからか？
「このページはご利用板だれません」と出てくる。
[コンピュータに保存されたオフラインのコンテンツを表示する ]をクリックすると
なんとか読めるが、昔のレガシーなヘルプとは使い方が違うような気がする。
オンラインヘルプより、どっちかつーとーとレガシーヘルプを昔のように使いたいんだが。
MSE_LEGACY.HXSらしいんだが、どうやって開くのか分らん。
130:名無しさん＠そうだ選挙にいこう
10/07/23 12:26:59
>>129
俺もあまり詳しくはないんだが
HXSを閲覧するにはExcel.exeと同じフォルダに入っているCLVIEW.exeを使う
ファイル名を指定して実行から
"C:\Program Files\Microsoft Office\Office12\CLVIEW.EXE" "EXCEL" "Microsoft Office Excel"
とやるとExcelを起動しなくても単独でヘルプビューアが起動できる
あとはIEから
ms-help:// ～ /????.xml
みたいに開くらしいけどよくわからん
131:名無しさん＠そうだ選挙にいこう
10/07/23 12:33:30
>>130
CLVIEW.EXEに関してはすでにやってるんだよね。
それじゃ駄目なんだ。
2010betaのせいかなぁ。
132:名無しさん＠そうだ選挙にいこう
10/07/23 16:48:12
２０１０入れてみれなくなったら、そら２０１０が原因だろうよ。
つーかいまさらβってアホじゃねーの。
133:複乳
10/07/23 16:50:35
EXACT関数って何か良い使い方ありますか？
134:名無しさん＠そうだ選挙にいこう
10/07/23 17:04:17
暗黙の変換させないで厳密な比較したいときに使えばいい
135:複乳
10/07/23 17:53:01
>>134
ありがとうございます！
136:名無しさん＠そうだ選挙にいこう
10/07/23 17:58:47
２０１０ベータ君を筆頭にアホばっかだな
137:名無しさん＠そうだ選挙にいこう
10/07/23 21:08:10
>>136
自己紹介お疲れ様です！
138:名無しさん＠そうだ選挙にいこう
10/07/24 08:23:15
WebのFormと同じボタンをexcelも作ることができます？
それを押すとWebと同じように機能するようにしたいです。
Webのformのname=,value=は、excelではあらかじめ指定して入力不要で済むように。
139:名無しさん＠そうだ選挙にいこう
10/07/24 08:49:32
>>138
まずは「excel form」でググって、それでも分からんことだけを聞くように。
140:138
10/07/24 08:54:44
いやexcelのformじゃなくてボタンを作りたいだけなんですよ
それをwebのformを値指定でsubmitしたいの
141:名無しさん＠そうだ選挙にいこう
10/07/24 09:13:21
ダメだこりゃ
142:名無しさん＠そうだ選挙にいこう
10/07/24 09:31:22
>>138 >>140
もし、やりたい事が
Excelのボタン押す→IE起動→あるWebページのFormへ値を自動的に入力→ Submit
ならVBAで可能
「Excel IEオブジェクト」でググってみたら？
143:名無しさん＠そうだ選挙にいこう
10/07/24 09:34:05
>>140
ググるとはどういうことか、分かってないようだね。
「Googleとかで検索することでしょ？そんなの知ってますよ！」ってか？ｗ
そういうことを言ってるんじゃないのよ。
144:138
10/07/24 09:45:13
そのとおり！
VBAでどう記述するのでしょうか？
ググるとは、ググレカレーをつくって食べるということですか？それはククレカレーだし。
145:名無しさん＠そうだ選挙にいこう
10/07/24 09:50:56
>>138の文章を読んだ瞬間に、こういう性格の奴だとすぐに分かったわｗ
146:138
10/07/24 10:00:29
そんなこといわずにおしえれ
147:138
10/07/24 10:15:14
時間だ
答えを聞こう
148:名無しさん＠そうだ選挙にいこう
10/07/24 10:18:24
答え：この世界に全く向いてない。虎乗りにでも転職しろ。
149:138
10/07/24 10:26:16
そこは「バルス」と言って欲しかった
150:複乳
10/07/24 13:13:20
>>144
ググるとは、googleで検索すること
151:名無しさん＠そうだ選挙にいこう
10/07/24 14:53:51
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
以下のような名前/身長/体重を表したデータがあるとします。
名前をリストにして選択すると、身長と体重も名前の右のセルに出力するようにしたいです。
（例：A1の名前のリストで田中を選択すると、160をB1、150をC1に表示させたい）
一つのリストに連動して他のセルの値を変える方法がわからないのですが、
どのようにすればよいでしょうか？
山田 170 60
田中 160 50
中山 150 40
152:名無しさん＠そうだ選挙にいこう
10/07/24 15:21:36
>>151
vlookupですね
153:名無しさん＠そうだ選挙にいこう
10/07/24 15:22:19
>>151
山田 =VLOOKUP(a1,$a$100:$c$200,2,0) =VLOOKUP(a1,$a$100:$c$200,3,0)
田中 =VLOOKUP(a2,$a$100:$c$200,2,0) =VLOOKUP(a2,$a$100:$c$200,3,0)
中山 =VLOOKUP(a3,$a$100:$c$200,2,0) =VLOOKUP(a3,$a$100:$c$200,3,0)
山田 170 60
田中 160 50
中山 150 40
154:名無しさん＠そうだ選挙にいこう
10/07/24 19:00:17
Excel起動時に日本語入力モードになってるのがうざいんですけど
半角英数字で起動する方法はありますか？
155:名無しさん＠そうだ選挙にいこう
10/07/24 23:24:01
EXCEL2007です。
質問なのですが、Sheet1に数万行のデータがあって、
Sheet2には千行ほどあります。
Sheet1の方は数式を値に貼替えていて、Sheet2は数式がありますが
たったの2列です。
この2列を削除したいのですが、削除しようとしたらフリーズしてしまいます。
セルを選択してDelもダメ。
列を選択してDelもダメで。
空白セルをコピーして、削除したいセルに貼りつけてもダメ。
どうにもなりません。解決策をお願いします。
156:名無しさん＠そうだ選挙にいこう
10/07/25 02:39:34
>>152->>153
ありあがとうございました！
無事解決しました
157:名無しさん＠そうだ選挙にいこう
10/07/25 05:46:52
>>155
とりあえず計算方法の設定を自動→手動に切り替えてから削除してみては？
158:名無しさん＠そうだ選挙にいこう
10/07/25 06:38:55
>>154
君はお風呂に水を入れようとして蛇口ひねったらシャワーから水が出てくるタイプだな。ｗ
もしかしてAT〇Kか?
159:複乳
10/07/25 07:48:49
>>154
まずスタートアップのフォルダを探す。OSやエクセルのバージョンによって違う。
C:\Documents and Settings\名前\Application Data\Microsoft\Excel\XLSTART
ここのファイルがエクセル起動時のファイルになるので、これを編集
全体選択（CTRL+A）→データ、入力規則、日本語入力タブ、日本語入力をオフに
>>155
メモリエラーかなぁ
新しいファイルを作って、Sheet1だけコピーする
>>158
全然面白くないから二度と書き込まないでね
160:暑中お見舞い申し上げます。
10/07/25 08:08:52
>>159
君は比喩的表現が生理的に受け付けないか、または理解できないのか、
もしかして下段のATOKを知らずに隠語と何か勘違いしたのか、
おそらく暑さでカリカリして苛立っているのだろうな。
161:複乳
10/07/25 08:14:13
言いたいことは一つ
回答者なら回答してから雑談でもしましょうということ
162:暑中お見舞い申し上げます。
10/07/25 08:33:39
>>161
>>154はテンプレ使って質問Sしてないから使用環境を知るためにあえてああいった
表現を使ったまで。
第三者の君に
>>158
全然面白くないから二度と書き込まないでね
と言われる筋合いの事ではないのだがな。
163:名無しさん＠そうだ選挙にいこう
10/07/25 08:34:02
複乳って名前の割に真面目だよな
名前の割に
164:名無しさん＠そうだ選挙にいこう
10/07/25 09:03:34
Excelのある1つのシートだけはHTMLページにしたいんです
つまりそのシートだけは他で作ったHTMLシートを埋め込む感じです
どうすればいいか教えてちょんまげです
165:名無しさん＠そうだ選挙にいこう
10/07/25 12:35:02
>>157 それでやってもダメなんですよね。
1つ1つ消すわけにも行かないけど、やってみたら2つは消せても
3つ目でフリーズ。
仕方がないのでSheet1だけコピーして他のブックに貼付けました。
意味不明な出来事でした。
166:名無しさん＠そうだ選挙にいこう
10/07/25 22:01:44
VBAで下記の2つは同じですか？
Selection.Areas.Count
Selection.Cells.Count
167:名無しさん＠そうだ選挙にいこう
10/07/25 22:22:09
>>166
全く別のもの
実際にやってみれぱ分かると思うけど
A1:A3 と C1:C2 を2つの領域を選択した時
Selection.Areas.Count = 2 .... 選択した領域の数
Selection.Cells.Count = 5 .... 選択したセルの数
168:166
10/07/25 23:01:06
どうもThanks >>167
169:名無しさん＠そうだ選挙にいこう
10/07/25 23:43:05
【1 OSの種類 .】 WindowsXP SP3
【2 Excelのバージョン 】 Excel 2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可（VBAを使わないと難しければ）
エクセルで作製したグラフのプロット上にマウスカーソルを置いた際に、
そのデータ値が表示されると思うのですが、それを任意の言葉に変更したいのです。
VBA無しでできれば嬉しいのですが、可能でしょうか？
VBAが無ければ難しいのであれば、VBAで解答して頂いても大変ありがたいです。
170:名無しさん＠そうだ選挙にいこう
10/07/26 00:56:46
>と言われる筋合いの事ではないのだがな
キモいｗ
171:名無しさん＠そうだ選挙にいこう
10/07/26 08:12:08
Excelのある1つのシートだけはHTMLページにしたいんです
つまりそのシートだけは他で作ったHTMLシートを埋め込む感じです
どうすればいいか教えてちょんまげです
172:複乳
10/07/26 08:54:36
>>164>>171
webページをコピーして貼り付けるぐらいしかない
173:名無しさん＠そうだ選挙にいこう
10/07/26 16:41:17
内容がないのに印刷すると総ページ数が2で2枚でてくる（最後の1枚は真っ白）のですが
これはどうにかして1ページにできないでしょうか？
余白をいじったくらいです
174:複乳
10/07/26 16:51:26
>>173
ページ設定の拡大縮小
175:名無しさん＠そうだ選挙にいこう
10/07/26 18:14:49
>>173
Ctrl+EndでExcelが使用済みと判断したセルの位置が出る
とりあえず怪しいセルを選択して編集→クリア→すべてとやって名前を付けて保存してみる
176:名無しさん＠そうだ選挙にいこう
10/07/27 02:52:36
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
画像をセルのデータとして挿入するにはどうすればよいでしょう？
例えばA1に画像を挿入した場合に、他のセルで「=A1」とすれば、
同じ画像が表示されるようにしたいです。
google検索では、綺麗にセル幅にあわせた画像を乗せておく
といったようなパターンしか見つけられませんでした。
よろしくお願いします。
177:名無しさん＠そうだ選挙にいこう
10/07/27 03:28:45
無理
178:複乳
10/07/27 07:13:43
>>176
セルのデータは無理だけど
同じ画像が表示は可能。図のリンク貼付けって機能↓
URLﾘﾝｸ(www.relief.jp)
179:名無しさん＠そうだ選挙にいこう
10/07/27 14:42:50
条件付書式によって色塗りされたセルを、その色で確定する事はできませんか？
数式の結果をコピペで「値」にする感じで、セルの色を確定したいのですが…
180:名無しさん＠そうだ選挙にいこう
10/07/27 18:31:29
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
メールにExcelファイルを添付し送信したところ、
先方では、フォントやセルの色等が全て反映されていなく、
また多数のシートの一部を非表示にし、シートの保護をして送付しているのですが、
非表示分のシートも全て表示されてしまうという現象が起きています。
先方のバージョンが低いのかと思い、当方でExcel2003が入っているPCで同ファイルを開いたところ
問題無く開けているのでバージョンのせいでも無いようです。
原因がわかれば教えてください。宜しくお願いします。
181:複乳
10/07/27 19:46:04
>>179
VBAならこの辺？
URLﾘﾝｸ(okwave.jp)
>>180
フォントは先方に無いフォントを使うと自動で変わったと思う。セルの色は知らん
2003で作れば少しはましになるとおもう。
後はxlsxではなく、xls形式で作るとか
とりあえず先方のバージョンを聞かないと原因は分からない。先方がキングソフトオフィスや、OOo使ってる可能性もあるしねぇ
182:名無しさん＠そうだ選挙にいこう
10/07/27 23:36:56
２００７ビューワーが入ってねーんだろ
183:名無しさん＠そうだ選挙にいこう
10/07/27 23:37:37
179は２００７買え
184:103
10/07/28 05:15:06
【1 OSの種類 .】 Windows2000
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
エクセルでピンボールができたんですが福乳さんが何点とれるか知りたいです
URLﾘﾝｸ(www42.atwiki.jp)
185:名無しさん＠そうだ選挙にいこう
10/07/28 08:20:29
>>184
そういうのはこっち↓でやってろ。
【質問不可】Excel総合相談所スレの雑談・議論スレ2
ｽﾚﾘﾝｸ(bsoft板)l50
186:180
10/07/28 17:38:35
>181,182
やはりバージョンですかね。
とりあえず保存を95まで落としたものを送ってみました。
結果はまだ来てませんが。
レスTKS!
187:名無しさん＠そうだ選挙にいこう
10/07/28 19:44:30
【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
Nowのシリアル値が知りたくて、
msgbox datevalue(now)
としたんものの2010/07/28と出てくるんですが、どうしたらいいですか
188:名無しさん＠そうだ選挙にいこう
10/07/28 20:06:57
MsgBox Now
じゃダメなの？
189:名無しさん＠そうだ選挙にいこう
10/07/28 20:57:06
>>187
MsgBox CDbl(Now)
190:名無しさん＠そうだ選挙にいこう
10/07/28 20:58:41
>>189
ありがとう！
191:名無しさん＠そうだ選挙にいこう
10/07/29 17:49:31
【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2010 2007でも可
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 】 グラフ
○月○日 出張費 10000円
○月○日 出張費 8000円
○月○日 交際費 7000円
こういった感じで表を作った場合にグラフ（自分は円を使いました）
を作成すると（対象は科目列｛2列目｝と金額列｛3列目｝）
グラフには出張費項目が2個作成されてしまい合計3項目のグラフになってしまいました。
これを「出張費」「交際費」の２つの項目のグラフにする方法はありますか？
現在は出張費合算、交際費合算をその他セルで算出してグラフ化しているのですが
できることならこれをしないでグラフ化したいのです。
よろしくおねがいします。
192:名無しさん＠そうだ選挙にいこう
10/07/29 20:33:00
>>191
ピボットグラフ
193:あぼーん
あぼーん
あぼーん
194:名無しさん＠そうだ選挙にいこう
10/07/30 05:14:46
Excel2007で簡単に給料計算をする方法を教えてください。
195:名無しさん＠そうだ選挙にいこう
10/07/30 07:16:49
>>194
Excel2007で動く給与計算ソフトを探してきて導入。
196:名無しさん＠そうだ選挙にいこう
10/07/30 10:48:29
>>194
エクセル 給料計算 テンプレ
でぐぐるとテンプレートが出てくるのでそれを使う
197:名無しさん＠そうだ選挙にいこう
10/07/30 19:19:33
スレ的にこういう回答はどうかと思うけど給与計算は適当なパッケージソフト（保守サポートありのやつ）
買った方がいいと思う
所得税の計算とか社会保険料の計算とかしょっちゅう制度が細かく変わるから
自力でメンテするには面倒すぎる
198:名無しさん＠そうだ選挙にいこう
10/07/30 22:07:59
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
みかん １００円
りんご ５０円
なし ２００円
ぶどう ２００円
りんご １００円
みかん ５０円
りんご １００円
上の表で、りんごが売れた件数の表計算
上の表で、りんごが売れた合計金額の表計算
以上よろしくお願いします
199:名無しさん＠そうだ選挙にいこう
10/07/30 22:21:56
=COUNTIF(A:A,"りんご")
=SUMIF(A:A,"りんご",B:B)
200:名無しさん＠そうだ選挙にいこう
10/07/30 22:47:24
なんか∑(・∀・) ｺﾜﾚﾀ !!
201:名無しさん＠そうだ選挙にいこう
10/07/31 01:19:35
【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2007
読み上げがSumしません。NaokoとKenjiがいなくなりました。
MS社に問い合わせたところ、故意にやりましたという回答でした。
なぜ？
202:名無しさん＠そうだ選挙にいこう
10/07/31 07:46:33
>>201
MS社に問い合わせた時にさらに突っ込んで聞けばよかったのに。
203:名無しさん＠そうだ選挙にいこう
10/07/31 08:38:36
>>199
助かりました！
ありがとうございます！
204:名無しさん＠そうだ選挙にいこう
10/07/31 11:30:25
【1 OSの種類 .】 widows XP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】いいえ
【4 VBAでの回答の可否】 否
教えてください
countifで三種類の記号のうち2種類のみを数えたいのですが
（表の中に○、△、×、とあるうちの○と△のみを数えたい）
「検索条件」を”○、△”と入力したのですがうまくいきません。
どなたか良い方法がありましたらご教授願いたいと思い書き込ませて頂きました。
宜しくお願いします。
205:204
10/07/31 11:43:14
自己解決できました
スレ汚しスマソ
206:名無しさん＠そうだ選挙にいこう
10/07/31 11:45:07
【1 OSの種類 .】 WindowsVISTA
【2 Excelのバージョン 】 Excel2002
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 】 住所録作成
会社で仕事回されたのですが、うちの会社今までPCなんて使わなくって
誰もエクセル使えないという状態です。
なぜか社長が今までの顧客データ全部パソコンで作る言い出しまして
なぜか私が1万人近い住所録作ることに。
Aタブに郵便番号、Bタブに住所、C氏名、D生年月日、E性別、F電話、G備考。です。
Aに郵便番号入れたらそのままBに住所出力出来ませんか？
Bに全角で入れて変換する手間が省けたらと思いまして。
207:名無しさん＠そうだ選挙にいこう
10/07/31 13:28:29
>>206
やりたいのはこれか？
URLﾘﾝｸ(hamachan.info)
208:名無しさん＠そうだ選挙にいこう
10/07/31 15:01:07
>>207
それですぅ
これで少し楽になるです。
ありがとです。
209:名無しさん＠そうだ選挙にいこう
10/07/31 15:04:42
あれ、、今やって見たら違たです。
A１～～A200位有るので
A1に郵便番号入れたら、勝手にB１に住所が入って欲しいのです。
A10に入れたらB10にとか。
210:名無しさん＠そうだ選挙にいこう
10/07/31 15:14:58
【1 OSの種類 .】 widows VISTA
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】はい
【4 VBAでの回答の可否】 できれば否、どうしても不可能だったら可
１、A
２、A
３、B
４、B
５、C
こういうデータがあった場合
１、A
３、B
５、C
…
としたいのですが現状は違う列にif(B2=C2,"○","×")
で×のセルを削除する方法をとっていますが、これ以外に方法ってあるのでしょうか？
また
１、A
２、
３、B
４、
５、C
みたいに複数データがある場合は、一番上の行だけ残してあとはクリアにしたいのですが
こういう場合はどうすればいいのでしょうか？
211:複乳
10/07/31 16:29:55
>>209
VBAじゃないと無理と思う
後はgoogleIME入れれば郵便番号を変換すれば住所になる
>>210
上はフィルタオプションで重複を削除にチェック
下はB2=IF(COUNTIF($A$1:A2,A2)>1,"",A2)
で下にオートフィル、値でコピーとか。
数式を残したいならvba。
212:209
10/07/31 18:49:00
>>211
ありがとです。
VBAって何です？って位知らないので普通に変換でやってきますぅ
213:名無しさん＠そうだ選挙にいこう
10/07/31 18:53:43
【1 OSの種類 】 WindowsXP
【2 Excelのバージョン 】 Excel2000
【3 VBAが使えるか 】 はい
【4 VBAでの回答の可否】 可
EXCELのフォームでボタンを作りそのボタンを押すことにより
別のEXCELのテンプレートファイルをテンプレートとして開くもの
を作ろうとしています。
ボタンに次の様なマクロを登録すると
Sub ディライトテンプレート起動()
ChDir "C:\請求"
Workbooks.Open(Filename:="C:\請求\請求書.xlt", Editable:=True). _
RunAutoMacros Which:=xlAutoOpen
End Sub
（フォルダー「見積」にテンプレート形式の「見積書.xlt」ファイルがあります。）
一応「見積.xlt」は開いてきますが、この動作はEXCELメニューの「開く」からテンプレート形式のファイルを
開いたのと同じことなので、何か入力して保存するとテンプレート形式で保存されてしまいます。
「請求書.xlt」をテンプレートとして実行したいのですが、どうすれば良いでしょうか？
よろしくお願いいたします。
214:名無しさん＠そうだ選挙にいこう
10/07/31 18:56:07
>>213
訂正：以下の文中の「見積」は「請求」の間違いです。
＞（フォルダー「見積」にテンプレート形式の「見積書.xlt」ファイルがあります。）
＞一応「見積.xlt」は開いてきますが、この動作はEXCELメニューの「開く」からテンプレート形式のファイルを
215:名無しさん＠そうだ選挙にいこう
10/07/31 21:27:13
>>213
Workbooks.Add Template:="C:\請求\請求書.xlt"
じゃだめなのかな
216:名無しさん＠そうだ選挙にいこう
10/07/31 21:36:24
A列にあるすべてのセルの漢字の振り仮名をクリアにしたいのですが
まとめてできる方法とかありますでしょうか？
217:名無しさん＠そうだ選挙にいこう
10/07/31 21:38:23
>>215
テンプレートとして開くことができした。
ありがとうございます。
追加質問ですが、こうやって起動するとテンプレートファイルのauto_openのマクロが
自動実行されないのですが、何か215に追加してコードを書かないといけないのでしょうか。
218:名無しさん＠そうだ選挙にいこう
10/07/31 21:57:37
>>216
マクロで
Sub aaa()
With Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
.SetPhonetic
.Characters.PhoneticCharacters = ""
End With
End Sub
219:名無しさん＠そうだ選挙にいこう
10/07/31 22:04:19
>>217
auto_openでどの様な処理をやっているか分からないけど
1)RunAutoMacros メソッドを使う
→使った事ないからようわからん
又は
2)auto_openをやめて
ThisWorkbook の Workbook_Openイベントを使う
Private Sub Workbook_Open()
'なんかの処理
End Sub
220:名無しさん＠そうだ選挙にいこう
10/07/31 22:11:01
>>216
一度メモ帳に貼付け
貼りつけたものを再度コピーして、エクセルに貼付け
複数行ある場合はVBAが必要だけど、よほどでない限り目で確認しながら自分で編集した方が早いと思う
221:名無しさん＠そうだ選挙にいこう
10/07/31 22:12:15
>>219
ありがとうございます。
やってみます。
222:215&219
10/07/31 22:14:50
>>221
ふと思ったけど 1)だと
Workbooks.Add(Template:="C:\請求\請求書.xlt").RunAutoMacros Which:=xlAutoOpen
で動作しないかな？
223:名無しさん＠そうだ選挙にいこう
10/07/31 23:05:05
>>219
2)でやったら出来ました。ありがとうございました。
その後
>>222さんの書き込みを見てやってみましたができました。
ありがとうございました。
今回ボタンを作って起動したいテンプレートファイルが20個くらいあるので
テンプレート側を直さなくていいRunAutoMacrosの方でやりたいと
思います。お二方ありがとうございました。
224:名無しさん＠そうだ選挙にいこう
10/08/01 00:04:19
>>223
テンプレファイルにコードを書くんじゃなく
ボタンがあるBookにコードを書くようにしたほうがイイよ
225:名無しさん＠そうだ選挙にいこう
10/08/01 00:30:21
>>224
そうします。サンキューです。
226:名無しさん＠そうだ選挙にいこう
10/08/01 00:49:36
>>213
マクロの記録で名前をつけて保存すればok
227:名無しさん＠そうだ選挙にいこう
10/08/01 16:00:20
【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 】 Googleやヘルプでの検索キーワード
すみません、他スレに書いたのですがスレが機能していないみたいなので
こちらで質問します。
XPぐらいまでの古いエクセルだと、グラフを作っても遅くならないのですが、
最新のオフィスだと、データが32000を超えるグラフを作った時に、
系列を２つ（データが60000を超えるため）繋いで、
同じ系列の色をあわせるために変更すると、重すぎて作業になりません、
どうしたら古いエクセルみたいに、色を変更しても、早くなりますか？
色がバラバラなままだと重くないのですが、 色を統一すると
表示が遅くなりますという警告が出て、作業が出来ないぐらい重くなります。
今のままだと古いバージョンのエクセルでしかグラフを作る事しかできませんが、
最新のパソコンで作業するように言われてるため、
重すぎて何時間たってもグラフが作れません。
228:名無しさん＠そうだ選挙にいこう
10/08/01 18:30:26
>>227
最新ついでに64bit版Officeにしちゃえば？
229:名無しさん＠そうだ選挙にいこう
10/08/01 18:33:46
表を作り替える。100行に一行ぐらいのデータにしてそこからグラフ作成
OOoでも使ってみる。OOoが分からない場合はググれ
230:名無しさん＠そうだ選挙にいこう
10/08/01 22:19:55
1時間23分45秒を
83分45秒と表示させるにはどうすればよかったですっけ？
231:名無しさん＠そうだ選挙にいこう
10/08/01 22:23:30
>>228-229
お返事有り難うございます。
会社の物品なので自分で仕様変更は出来ません。
あと、元のデータは７０万を超えていて、
１２行に１行のデータにして６万のグラフにしてます、
これが旧バージョンのエクセルでは可能でした。
新バージョンでも色の変更さえしなければ
重くならずに作業出来るのですが、
それでは顧客に提出が出来ないので悩んでいます。
232:230
10/08/01 22:25:58
Oh, thanks!
>>233
233:名無しさん＠そうだ選挙にいこう
10/08/01 22:28:10
[h]:mmとすればいいですYo
234:名無しさん＠そうだ選挙にいこう
10/08/01 22:31:36
>>230
これの事かな
表示形式 [m]:s に変更でそう表示されると思いますけど
235:名無しさん＠そうだ選挙にいこう
10/08/02 00:26:58
【1 OSの種類 .】 Windows vistaSP2
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 】 条件 抽出
A
1渋谷
2恵比寿
3渋谷
4大塚
5恵比寿
このような重複するデータの統計を取るのに、B列に
入力されたデータを一つずつ並べたいです。
B
1渋谷 ←A1を入れる
2恵比寿 ←A1～A4の中で、A1以外のデータを入れる
3大塚 ←A1～A4の中で、A1、A2以外のデータを入れる
4 ←データの種類が3種類なら空欄
という感じで関数を組めば自動的にどのデータが入力されたのかの
一覧が出来ると思うのですが、具体的にどうやればいいのかわかりません。
よろしくお願いいたします。
236:名無しさん＠そうだ選挙にいこう
10/08/02 00:35:05
すいません、間違えました。
>>235の下は、
B
1渋谷 ←A1を入れる
2恵比寿 ←A1～A4の中で、B1以外のデータを入れる
3大塚 ←A1～A4の中で、B1、B2以外のデータを入れる
4 ←データの種類が3種類なら空欄
です。
関数を使ってフィルタリングをしたいです。
237:複乳
10/08/02 07:52:44
>>231
何らかの方法でデータを圧縮するor再計算を止める
表を見せてもらえばすぐに解決できるとおもう
>>235
フィルタオプションで重複を削除にチェック
どうしても数式なら
B1=IF(C1="","",COUNTA($C$1:C1)-COUNTBLANK($C$1:C1))
C1=IF(COUNTIF($A$1:A1,A1)>1,"",A1)
D1=VLOOKUP(ROW(),B:C,2,0)
238:名無しさん＠そうだ選挙にいこう
10/08/02 08:17:28
>>237
下手だねぇ。せめてc1の式はMATCH使えよ。
MATCH使ってもまだ100点満点で30点くらいだな。
そもそも関数でやること自体が100点にはなりえないが。
239:名無しさん＠そうだ選挙にいこう
10/08/02 08:37:55
>>238
おまいさんの上手な式とやらを見せてKれよ
240:名無しさん＠そうだ選挙にいこう
10/08/02 09:50:16
>>239
こうやるんだよ。
=INDEX(A:A,SMALL(INDEX((MATCH(A$1:A$1000&"",A$1:A$1000&"",)<>ROW(A$1:A$1000))*1000+ROW(A$1:A$1000),),ROW(A1)))&""
A1:A1000にデータがある式な。
241:名無しさん＠そうだ選挙にいこう
10/08/02 09:59:26
>>240
一式でやるのは個人的には楽しいけれど、こんな所で煽った結果の式がこれかい
自己満足以外の何ものでもない
アホか
242:名無しさん＠そうだ選挙にいこう
10/08/02 10:02:00
>>240
すごいねぇｗ
でその式は何点なの？
243:名無しさん＠そうだ選挙にいこう
10/08/02 10:17:34
>>242
俺からみたらマイナス100点だなｗ
モー愚で見たような式だが>>240はあそこのアフォじゃねーか?
244:複乳
10/08/02 11:46:48
まさかこの回答で煽られるとは思わなかったｗ
>>242
100000000000000000000000000点ぐらいあります＞ｗ＜
245:名無しさん＠そうだ選挙にいこう
10/08/02 12:11:41
せめて>>240も作業列を1列作れば10点くらいあげてもいいんだが、それじゃやっぱりマイナスだろうねぇ。
MATCHの計算を無駄に1000倍だもんなぁ。
基本が全然分ってない人なんだろうね。
246:名無しさん＠そうだ選挙にいこう
10/08/02 20:15:02
>>243
誰も声の大きい奴が有能なんて話してんじゃねえんだよ
どんな仕事でも、声の小さい奴は例外なく無能だって言ってんだ
どんな仕事って言っても正社員で経験したのは４社だけど
バイト時代も含めて声が出てない人は必ず仕事も出来ない人だった
一人の例外も無くだ
まだ１２年の短い社会人経験から得た経験則だが、
まともに働いてる人間ならほぼ共通する認識、つまり常識のはずだぞ
247:名無しさん＠そうだ選挙にいこう
10/08/02 20:27:26
>>246
どこと誤爆？
248:名無しさん＠そうだ選挙にいこう
10/08/02 20:40:20
>>237
再計算はしてません、それと圧縮もこれ以上は出来ません。
表は、会社から顧客へ提出するので見せるのも出来ませんが、
6万ぐらいのデータを8系列～13系列の折れ線グラフです、
色がバラバラなら重くならないのですが、
1系列のグラフは、3万データまでしか使えないので、
1～3万、3万1～6万のグラフを繋いで１系列にしています。
そのまま繋ぐと自動では、色が違うので
それを変更して統一する時に、色を変更すると処理速度が落ちますという警告が出て、
1回の表示に5分～10分以上かかるようになり、
簡単な作業も何時間経っても終わらなくなって困ってます。
249:複乳
10/08/02 22:04:23
>>248
圧縮、ねぇ
試しに数式で三行ごとに平均を取ってみた
URLﾘﾝｸ(www1.axfc.net)
こういう処理してからグラフ作成すれば軽くなると思うんだけどねぇ～
VBAも使えない環境・実力なら、ペイント等の画像ソフトで加工した方が圧倒的に早いと思う
Windows7のペイント、確かなかなか良かったような
あとこういう所で見せるデータというのは、ダミーデータだよ。
A列に日付、B列に本店売上、C列に仕入値、とかね。どこになにが入ってるかわかれば大体想像できるので、
適切な回答をもらいやすくなるよ。多分ね。
250:名無しさん＠そうだ選挙にいこう
10/08/02 22:11:52
>>248
データ量が大きい時はアクセスの方が少しはましになるんじゃないかい？
（詳しくないけど）
ってか、アクセスってグラフ機能あるのね、今調べて初めて知ったｗ
251:名無しさん＠そうだ選挙にいこう
10/08/02 22:22:01
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 】VBA
Excelで一行目に文字列があって
その行と同じ階層にあるaaa.csvの
a,b,c,d…みたいな中身のファイルを比較して
たとえば
A1のデータとa、B1のデータとbみたいに
全て一致していたら○、一つでも違っていたら×みたいにしたいのですが
可能でしょうか？
252:名無しさん＠そうだ選挙にいこう
10/08/02 22:30:05
言ってる意味がさっぱりわからないが、
openfileやdir、文字列比較でぐぐったらいいと思う
それも出来ないようなら素直にベクターで
ファイルの内容比較するソフト使えばいいと思う
253:名無しさん＠そうだ選挙にいこう
10/08/02 23:53:35
>>251
aaa.csvをExcelで開いてあげてセル同士の比較にすればよくね
254:名無しさん＠そうだ選挙にいこう
10/08/03 00:09:50
シート１のA4に、シート３のB5をコピーしたい時にどのように入力すればいいですか？
255:名無しさん＠そうだ選挙にいこう
10/08/03 07:45:32
>>254
コピーは入力ではできない
参照なら
A4='sheet3'!B5
256:名無しさん＠そうだ選挙にいこう
10/08/03 08:37:39
ヘッダ2行で、以下数十行に渡って2行ずつのデータが並んでいるのですが、
これをヘッダ1行にして、データも1行にしたいです。
INDEXとかROWとかCOLUMNとかでやってみましたが、うまくできません。
ベクターでそういうツールが売っているのですが、会社に言ってそれを
買った方がいいのでしょうか？
それとも、関数式のオートフィルでできるのでしょうか？
257:名無しさん＠そうだ選挙にいこう
10/08/03 09:39:17
【1 OSの種類 .】 Windows XP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード 】 EXCEL 文字列操作 抽出
a1に「アイウエオカキクケコ」という文字が入ってる時に
a2に左から３文字右から５文字を抽出したい(つまり「ウエオカの抽出」)
のですが方法を教えてください。
FIND LEFT RIGHTを使っても上手くいきません。
258:名無しさん＠そうだ選挙にいこう
10/08/03 10:10:42
>>257
MID
259:251
10/08/03 10:54:28
aaa.csvをExcelで開いてあげてセル同士の比較って
どうやればいいでしょうか？
260:257
10/08/03 11:44:01
258
ありがとございます
261:複乳
10/08/03 12:34:43
>>256
a列に並んでるとして
B1=INDIRECT("r"&(ROW()-1)*2+1&"c1",0)
C1=INDIRECT("r"&(ROW()-1)*2+2&"c1",0)
D1=B1&C1
下にオートフィル
終わったら値でコピーすれば官僚
>>259
それも分からないなら無理と思う
262:251
10/08/03 12:56:05
そんなこと言わずに教えれ
263:名無しさん＠そうだ選挙にいこう
10/08/03 13:08:27
>>261
ご回答ありがとうございます。
a列一列を一行ずつに配置できましたが、
このa列が右に複数列あるばあい、
上記関数のどの数値や文字列を変更すればよろしいでしょうか。
たびたび申し訳ありません。
264:複乳
10/08/03 13:32:50
>>263
R1C1、という形式があるんだけどRは行、Cは列を表す
=indirect("r1c1",0)だと、A1の内容を表示する。（"r2c4"）だとD2になる
右に複数列をどう処理するのかわかんないけど、
B1=INDIRECT("r"&(ROW()-1)*2+1&"c5",0)
C1=INDIRECT("r"&(ROW()-1)*2+2&"c5",0)
って感じで最後のC1をC5に変えれば5番目のE列を処理できる
これだけの情報で何とかなるかな
もっと詳細な情報もらえれば何かテキトーに作るよ
>>262
っていうかぁ～
質問の内容あんまりわかんないんだよね～
分かるように具体的な内容で質問しなおしてくれれば答えられるかもね～
265:名無しさん＠そうだ選挙にいこう
10/08/03 14:00:57
>>264
ありがとうございます。
配置はできました。
助かりました。
もう一つなのですが、これを別シートで表示したいのですが、
自分でためしてみましたができません。
上記関数のどこにSheet1!をつければ宜しいでしょうか。
何回も恐れ入りますが、宜しくお願い致します。
266:名無しさん＠そうだ選挙にいこう
10/08/03 14:06:45
いい加減不細工なINDIRECTやめてINDEXにすりゃいいのに。
ブス専か？
ブス:=INDIRECT("r"&(ROW()-1)*2+1&"c1",0)
普通:=INDEX(A:A,ROW()*2-1)
ブス:=INDIRECT("r"&(ROW()-1)*2+2&"c1",0)
普通:=INDEX(A:A,ROW()*2)
267:名無しさん＠そうだ選挙にいこう
10/08/03 14:18:35
まぁまぁ、複乳はINDIRECTが得意なんだから見守ってあげようよ。
268:複乳
10/08/03 14:19:56
>>265
=INDIRECT("sheet1!r"&(ROW()-1)*2+1&"c5",0)
>>266
じゃあ答えてあげれば～
269:名無しさん＠そうだ選挙にいこう
10/08/03 14:22:51
>>266
=INDEX(Sheet1!A:A,ROW()*2-1)
=INDEX(Sheet1!A:A,ROW()*2)
これで解決致しました。
ありがとうございました。
複乳さんもどうもありがとうございました。
270:名無しさん＠そうだ選挙にいこう
10/08/03 14:49:26
よくコテハン使うよなぁ
恥をいっぱい書いて上達したいのかも知れないが、がんばってくれたまえ
271:名無しさん＠そうだ選挙にいこう
10/08/03 15:02:34
怒らないでマジレスしてほしいんだけど
なんでこんな時間に書き込みできるわけ？
普通の人なら学校や会社があるはずなんだけど
このこと知った親は悲しむぞ？
272:複乳
10/08/03 15:17:46
わたしはね働かなくても財産がある
資産運用をして不労取得がある
お金のことに対して知恵がある
あなたとは違うんです
273:名無しさん＠そうだ選挙にいこう
10/08/03 15:24:29
あなたとはexcelの運用方法も違うんです
274:複乳
10/08/03 15:28:54
>>273
そういうことも考えました
excelの運用方法とあなたおっしゃったけどもね
私は自分自身のExcelの使い方を客観的に見ることができるんです
URLﾘﾝｸ(azflash.net)
275:名無しさん＠そうだ選挙にいこう
10/08/03 15:40:47
かっこいい！
276:名無しさん＠そうだ選挙にいこう
10/08/03 17:33:10
複乳さんはよく煽られるけど、俺は全く嫌な感じしないけどね
レスの式が良いか悪いかは考え方にも、こだわり方にもよる。
何より初心者にとってレスがあるだけでも助けになるよ。
まぁコテであることだけで煽る、ある意味嫉妬のようなものかな
277:名無しさん＠そうだ選挙にいこう
10/08/03 18:19:48
Excel2007ではマクロが動くのに
同じファイルでExcel2003だとエラーが出るんです
どんなエラーか正確には忘れましたが
PC or Excelの性能の問題っぽいです。
どうすればいいですか？
278:名無しさん＠そうだ選挙にいこう
10/08/03 18:38:38
>>277
そのファイルをExcel2003では使わないようにする。
279:253
10/08/03 20:46:11
>>259
VBAを使わず手動で Excelから aaa.csv を開いてみるとイメージがわくと思うけど
Excelの開くで ダイアログが出たら
ファイルの種類を テキストファイル(･･････ *.csv)にしる
つか aaa.csv ってテキストファイルだよね？
280:名無しさん＠そうだ選挙にいこう
10/08/03 23:12:20
>>277
エラーの内容は正確に書き写すことが基本
性能が問題ならPC買い換えorEXCELのバージョンアップしか無い
どうしても混在の環境でマクロを作りたいなら、2003でマクロを作る
281:名無しさん＠そうだ選挙にいこう
10/08/04 00:43:32
【1 OSの種類 .】 Windows XP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 少々
【4 VBAでの回答の可否】 可
G列にある、次のような値から右端の"-F"と"-R"だけ削除をしたいです。
（"-F"や"-R"がないときは、そのまま）
A100-F
B-200-R
AB-3000-R
C10000
B2500-F
↓
A100
B-200
AB-3000
C10000
B2500
現在、データが3万行くらいあり、今後も毎月2,000行くらい
更新されそうなので、手作業で削除するのは辛いです。
値の長さが一定ではないので、区切り位置では
うまく出来ませんでした。
よろしくお願いします。
282:名無しさん＠そうだ選挙にいこう
10/08/04 02:08:02
>>281
"-F"と"-R"を""に置換
283:名無しさん＠そうだ選挙にいこう
10/08/04 06:38:52
>>281
Korea-F15K-Manholeとか途中にも-Fとかあるの？
末尾の-Fと-Rだけか？
284:複乳
10/08/04 08:50:51
>>281
A列に対象を入力しておいて
B1=IF(OR(RIGHT(A1,2)="-F",RIGHT(A1,2)="-R"),LEFT(A1,LEN(A1)-2),A1)
下にフィルコピー
285:名無しさん＠そうだ選挙にいこう
10/08/04 09:14:38
>281 ＶＢＡだとこんな感じ
開始行位置と終了行位置はシートのどこか適当なところに設定するようにすればソースをいじらずに済みます
Sub okikae()
s = 1 '開始行位置
e = 5 '終了行位置
For i = s To e
a = Cells(i, 7).Value
If (a Like "*-F") Or (a Like "*-R") Then
Cells(i, 7).Value = Left(a, (Len(a) - 2))
cnt = cnt + 1
End If
Next i
MsgBox ("置き換え " & cnt & " 件")
End Sub
286:名無しさん＠そうだ選挙にいこう
10/08/04 09:23:33
"0-*"を"0"に置換
287:複乳
10/08/04 09:48:14
>>282 A100-F-A のように途中に"-F"か"-R"があるとダメ
>>286 A101-F と数字の最後が0以外、またA100-A と最後のアルファベットがFR以外でもダメ
288:名無しさん＠そうだ選挙にいこう
10/08/04 10:20:41
ダメダメじゃん。
289:名無しさん＠そうだ選挙にいこう
10/08/04 13:21:01
複乳の指摘も駄目だしな
290:名無しさん＠そうだ選挙にいこう
10/08/04 17:49:32
エクセルって正規表現で置換できなかったっけ？
291:名無しさん＠そうだ選挙にいこう
10/08/04 19:35:02
よろしくお願いします。
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel 2003
【3 VBAが使えるか .】そこそこ
【4 VBAでの回答の可否】 ＯＫ
【5 検索キーワード 】 配列 min関数 match関数
A列 ・・・ Q列 R列
100602 23000 100
100602 35400 154
100602 102000 443
100634 46500 100
100634 71000 153
100794 489000 100
100794 490000 100
100794 502000 103
きっとずれてますがすみません。
こんな風にA列に同じ数字の行（1行～10行くらい）がある、
A列の同じ検索値のQ列の最小値を100としてR列に比率を出したいです。
35400/23000=1.5391...ですが、小数点下3桁を四捨五入した100倍の整数にします。
ちなみに4万行近いデータがあります。配列や関数を使ってなんとか出来ないでしょうか。
292:名無しさん＠そうだ選挙にいこう
10/08/04 20:11:43
>>291
R列に
=ROUND((Q2/MIN(IF(($A$2:$A$10)=A2,$Q$2:$Q$10,10^10)))*100,0)
といれて、CTRL+SHIFT+ENTERを押して確定（式の前後に｛｝がつく）
けど、4万行だときついかな？どうでしょうかね？
マクロとかの方が後腐れなくできそう
293:名無しさん＠そうだ選挙にいこう
10/08/04 20:12:54
追記
上記はR2に入れる式で、範囲は2行目から１０行目にしているから、そこは変えて。
294:名無しさん＠そうだ選挙にいこう
10/08/04 20:16:25
>>292
わ、早速ありがとうございます！
そうですね、マクロでのコードも思案中でした。
ですがこれで5000行くらいずつ数式入れてがんばってみます。
ありがとうございました！
295:名無しさん＠そうだ選挙にいこう
10/08/04 20:18:49
>>292
しかも速攻うまくいきました！
本当に助かりました。ありがとうございました！！！
296:単乳
10/08/04 22:45:16
てすと
297:名無しさん＠そうだ選挙にいこう
10/08/04 23:09:35
書き込もうとしたら移転が始まって出遅れた
マクロ半分、数式半分でお手軽にやってみた
Sub aaa()
Application.ScreenUpdating = False
Application.Calculation = xlManual
r1 = 1
r2 = 1
While Cells(r1, 1) <> ""
While Cells(r2, 1) = Cells(r1, 1)
r2 = r2 + 1
Wend
For i = r1 To r2 - 1
Cells(i, 18).Formula = "=ROUND(Q" & i & "/MIN(Q" & r1 & ":Q" & r2 - 1 & ")*100,0)"
Next
r1 = r2
Wend
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub
298:281
10/08/05 00:28:07
281です。
回答してくださった方々、ありがとうございました。
毎月やらなければならないので、285さんのマクロを拝借しました。
32011行のデータが5秒くらいで終わりました。
ホント感謝です。
299:291
10/08/05 08:39:04
>>297さん
どうもありがとうございます！非常に参考になります。
本当にありがとうございました！m(_ _)m
300:名無しさん＠そうだ選挙にいこう
10/08/05 10:45:05
Excelで複雑なマクロを実行してると、なんと電気ブレーカーが落ちて
もちろんパソコンの電源は切れ、部屋中が一時的に停電になってしまいました。
これはExcelが原因？こんなことってある？
301:名無しさん＠そうだ選挙にいこう
10/08/05 11:25:38
>>300
可能性はゼロじゃないけどめっちゃ低い。0.0001%ぐらい
ほかの原因を探した方が賢明
302:名無しさん＠そうだ選挙にいこう
10/08/05 11:39:51
>>300
可能性がないわけじゃない。
>複雑なマクロを実行
マシンパワーを必要とするからCPUフル稼働 → ファン全開 → 消費電力増大
つうか、ブレーカーが落ちたところを見てみろ。メインが落ちたのなら契約電力を変える。
一部が落ちたのなら、コンセントを変えてみる。
エアコンが稼動しているだろうから、主にそれが原因だと思うぞ。
303:数字君
10/08/05 16:25:27
板違いで引っ越してきました。
親切な人、教えて下さい。
エクセルでいろいろな数字が入っている一覧表があるのですが
その数字をすべて一括で変えるVBAの式を探しています。
例えば123なら234、3,569なら4,679という風に一つ一つの数字を
文字列とみて全ての数字に１を足したものに変更したいのです。
エクセルなら文字列にしていても後で一括して数字に変更できるので
どなたかこのような式が分かる方がいたら教えて下さい。
当方関数しかわからない為よろしくお願いします。
304:数字君
10/08/05 18:03:20
すみません！自己解決できました。
どうしてもループになってしまい、うまくいかなかったのですが
数字をいったんアルファベットに置換したあと、そのアルファベットを
希望の数字に変換することで何とか思う通りの結果になりました。
スレ汚し、失礼しました。
305:名無しさん＠そうだ選挙にいこう
10/08/05 20:21:24
そんな手間のかかることしなくても、8から順に置換すればいいのでは
306:名無しさん＠そうだ選挙にいこう
10/08/05 23:12:51
ねぇねぇ、これ何で計算できちゃうの？
a = 1
b = "2"
c = a + b
MsgBox c '3と表示される
307:名無しさん＠そうだ選挙にいこう
10/08/05 23:54:25
値が数値だからじゃね
308:名無しさん＠そうだ選挙にいこう
10/08/06 01:31:43
5億字ぐらいのテキストファイルの分析をやります。
A列の言葉をA列の同じ言葉と置き換えて出現数のカウントを40万語ぐらい
連続してやる作業です。
２０１０ 64bitをW７ー６４bitをいれてSSDではしらせるとリニアに早くエクセルが
動くといううわさなのですが、これは本当でしょうか？
CPUはこの場合、２，４，６の場合、やはり、比例して早くなるのでしょうか？
当方現在、vista３２ ２００７ で３Gメモリで、分割して、一日7時間ぐらいずつ
作業しているのですが、途方にくれています・・・
309:名無しさん＠そうだ選挙にいこう
10/08/06 03:54:38
>>308
確かに64bitExcelは速いけど、そういう作業はExcelに向いてないというか、能率が悪すぎる
単語数をカウントするだけなら専用のソフトがある
50Mバイト程度(日本語なら100Mバイトか)のテキストファイルなら何時間もかからんよ
310:名無しさん＠そうだ選挙にいこう
10/08/06 10:19:58
ありがとうございます。なんというソフトでしょうか。名前を教えてくださいませんでしょうか？
311:名無しさん＠そうだ選挙にいこう
10/08/06 11:06:45
>>310
気軽に「こんなソフトありませんか？｣ Part.128
ｽﾚﾘﾝｸ(software板)
312:名無しさん＠そうだ選挙にいこう
10/08/06 19:59:55
vectorとか窓の杜に有りそうだね。
313:名無しさん＠そうだ選挙にいこう
10/08/07 09:34:52
【1 OSの種類 .】 WindowsVista sp1
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可･否
【5 検索キーワード 】 グラフ、ビスタ
グラフを作ると画面が停止してファイルが落ちたり、
動作が遅いのは、ビスタだからなのでしょうか？
同じグラフを、他のOSで使うと、サクサクと動きますが、
ビスタで使う時、動かなくて困っています。
タスクマネージャーで確認した所、
グラフを開いた時のCPU負荷率54%、メモリ使用率75%です。
どうにか軽減できないでしょうか？
CPUは2.97G、メモリは4Gのスペックです。
314:名無しさん＠そうだ選挙にいこう
10/08/07 15:30:37
1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel 2003
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 否
【5 検索キーワード 】 オートフィルタ
質問：
以下のような行があって、×の行だけ抜き取りたくて、オートフィルタを使いました。
●
×
●
●
×
上記からオートフィルタで×だけを抽出。
すると
×
×
のように表示されます。
で、この×の二行をドラッグ＆ドロップでまとめて選択して、CTRL+Xして 別のシートに貼り付けました。
こうすれば、×の行だけ消えてると思ったわけです。ところが、なぜか●の行も一緒に別のシートに移動されてました。
どうもドラッグ＆ドロップで選択すると、●の行も一緒に選んでしまっているみたいで、それでうまくいかなかったようです。
しかし、いちいち×の行だけ選んでいくのは大変です。
×の行だけを別のところに移動させるうまい方法はないものでしょうか？
315:名無しさん＠そうだ選挙にいこう
10/08/07 16:07:16
>>314
A列とかB列みたいに列じゃなくて、
A2～A200みたいにセルを選択したらどう？
316:314
10/08/07 17:32:11
>>315
失礼しました。
すこし説明の手間を省くために ●と×とだけ書いたのが間違いでした。実際には、●の横には色々データがあり、
●を含む行すべて、×を含む行すべて、でより分けたいのです。
そういう方法ありますでしょうか。
317:名無しさん＠そうだ選挙にいこう
10/08/07 17:44:47
>>314
315さんのようにセル選択でいいんじゃね？
A2～C200って感じで
フィルタかけて、行範囲選択→コピー
→形式を選択して貼り付け→空白セルを無視するにチェック→OK
なんてやるより
318:名無しさん＠そうだ選挙にいこう
10/08/07 17:53:36
>>314
よく読んでなかった
コピーじゃ駄目なの？どうしても切り取り？
319:名無しさん＠そうだ選挙にいこう
10/08/07 17:55:15
>>314
やりようは色々あるよ。簡単な方法だけどオレだったらこうする。
ページごと複製してから参照行で×が上に●は下に集まるようにソート掛ける。
後は●の部分のいらないデータを丸ごと削除する。
320:314
10/08/07 18:07:14
皆様どうもありがとうございます。
>>318
あ、コピーなら、フィルタリングかけか行だけコピーできるんですね。
他にも試してみると、消去もできますね。
しかし、なぜ、
コピー（CTRL X)→貼りつけ
だけはできないのだろう・・・。全くよく分からない仕様ですね。
>>319
そのやり方は確かにあるのですが、ちょっと面倒なのでオートフィルタを使おうと思いました。
でももうそのやりかたでもいいですね。
321:名無しさん＠そうだ選挙にいこう
10/08/07 18:14:16
>314
ジャンプ機能はだめなの？
範囲選択-「編集」-「ジャンプ」-「セル選択」-「可視セル」にチェック
そのままコピーか切り取りでもしたら見えてる部分だけコピペできる。
やりたいことが違ってたらすまん
322:名無しさん＠そうだ選挙にいこう
10/08/07 18:53:43
>303
アク菌で書けなかったんで、亀ながら
=SUBSTITUTE(A1,"9","8")+REPT("1",LEN(A1))
323:名無しさん＠そうだ選挙にいこう
10/08/07 20:03:25
>314 のやり方はいつも >321 の方法でやってる。
324:名無しさん＠そうだ選挙にいこう
10/08/07 20:17:55
>>306
暗黙の型変換。
325:名無しさん＠そうだ選挙にいこう
10/08/07 21:22:50
excelファイルは「最後にファイルを開いた日時」が表示されますが、
どのパソコンから開いて操作したかもわかるようになってますか？
（複数のPCで共有されているファイルの場合）
326:名無しさん＠そうだ選挙にいこう
10/08/07 21:43:35
>>314
>>321の可視セル選択のショートカットは Alt + ; （セミコロン）ね
327:名無しさん＠そうだ選挙にいこう
10/08/08 11:29:38
>>325
誰が最後に保存したかはプロパティを見ればわかるけど
328:名無しさん＠そうだ選挙にいこう
10/08/08 13:08:07
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 】 EXCEL リターン 計算 マクロ
質問： 数字を入れても自動的に計算をしてくれません。
計算式のあるセルをいちいちクリックしてリターンを押せば答えが出てきますが、面倒でしょうがありません。
何かの設定なんだとは思うのですが、わかりません。
初心者で申し訳ありませんが、どなたかご教授ください。
329:名無しさん＠そうだ選挙にいこう
10/08/08 13:09:39
>>328
ツール→オプション→計算方法→自動にチェック
330:名無しさん＠そうだ選挙にいこう
10/08/08 13:10:04
>>328
ツール→オプション で計算方法タブ（だっけ？）の計算方法が「手動」になっているのを「自動」にする
331:328
10/08/08 13:43:02
329さん.330さん
ご教授ありがとうございました。
332:名無しさん＠そうだ選挙にいこう
10/08/08 16:30:39
【1 OSの種類 .】 WindowsVista
【2 Excelのバージョン 】 Excel2000
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 】 日付 曜日 weekday
URLﾘﾝｸ(viploader.net)
日付から土日判定をしたかったのですが、なぜか
2011年6月26日以降、weekday関数が7しか吐かなくなってしまいました。
何ででしょうかニート予言でしょうか
ニートにはなりたくないので解決方法わかる方いましたらお願いします。
333:名無しさん＠そうだ選挙にいこう
10/08/08 16:42:00
=WEEKDAY(A516)?
A328じゃなくて？
334:名無しさん＠そうだ選挙にいこう
10/08/08 16:47:19
>>333
ありがとうございます
お恥ずかしい・・・初歩的なミスでした・・・
335:名無しさん＠そうだ選挙にいこう
10/08/09 09:09:15
【1 OSの種類 】 WindowsXP
【2 Excelのバージョン 】 Excel2000
【3 VBAが使えるか 】 はい
【4 VBAでの回答の可否】 可
人から Excel2000 で作って欲しいものがあると言われて
PCを預かってExcel2000のVBAで開発を行っていたのですが、
EXCELを何度も開いたり閉じたりしていると何回かに1回、
（100回に一回くらいかな？）
なぜか「OUTLOOK EXPRESSのフォルダを圧縮することがでいます。圧縮を行ないますか？」
というようなことを聞いています。
通常のOUTLOOK EXPRESSで出る表示と同じ様なものです。
それでOKするとメールの圧縮が始まります。
EXCELでOUTLOOK EXPRESSデータの圧縮を行っている様な表示がでます。
私はOUTLOOK EXPRESS自体は一度も開いたりしていません。
こんなことってあるんですかね？
それとも何か特殊なプログラムがこのPCに入っているのでしょうか。
336:名無しさん＠そうだ選挙にいこう
10/08/09 15:01:23
諸兄らの知恵を拝借したく質問
【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel200
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 】
座席表です。
シート2のA1に「教卓」 横のB1に「教師」とあるとする。
で、シート1の座席表の教卓のスペースに「教師」と自動で入力したいのです。
シート2は任意に変更され、ある月は「教師」が「教生」と記入したら
シート1の教卓は「教生」と変更されている。
つまり、ある特定文字列を指定してその横のセルの文字列を表示したいのですが、
なんとかいい手はないでしょうか？
オートフィルタで一個一個探してコピペという手は思いついたのですが、
人数が多くナンセンスっぽいので お願いします。
この文字列の横B1のシート1のA1に自動で文字列をいれたい。
337:336
10/08/09 15:02:40
最後の行は無視してください。
消しわすれです。
連投申し訳ないです。
338:名無しさん＠そうだ選挙にいこう
10/08/09 15:25:55
残念ですがそのバージョンではお答えしかねます。
339:336
10/08/09 15:30:27
すみません。脱字にきづきませんでした。
【2 Excelのバージョン 】 Excel2003
で、再度 お願いいたします。
340:名無しさん＠そうだ選挙にいこう
10/08/09 16:31:46
>>336
シート1の教卓のスペースのセルに式「=Sheet2!B1」と書くのじゃだめですか？
シート1の「教卓」自体が他に移動したり、別のものに変わるんですかね？
変わるのならVLOOKUP関数でどうかと・・・
341:336
10/08/09 16:57:16
340さんありがとうございます。
ただ、夏期講習とかで参照先のシート２がへんこうがあるのです。
シート2のAには学籍番号がはいっています。
シート１はレイアウトも含め変更はありません。
342:名無しさん＠そうだ選挙にいこう
10/08/09 17:44:29
>>341
欲しい座席表が例えば
シート１
---------------------
教師
麻生 福田 安倍 森
---------------------
で
シート2は
---------------------
学籍番号
000 教師
001麻生
002福田
003安倍
004森
----------------------
343:名無しさん＠そうだ選挙にいこう
10/08/09 17:45:34
>>342の続き
としたいなら
シート1に式で
----------------------------------------------------
セルD5に「=Sheet2!B1」
セルA1 セルA2 セルA3 セルA4
「=Sheet2!B2」 「=Sheet2!B3」 「=Sheet2!B4」 「=Sheet2!B5」
---------------------------------------------------
としておけば、
シート2の学籍番号と名前が塗り変わればシート1の表示も変わりますが、
こんなんじゃ駄目なんですかね？
344:名無しさん＠そうだ選挙にいこう
10/08/09 20:44:41
【1 OSの種類 .】 WindowsVista
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 】
エクセルで作業をしていると、メモリ不足になり表示出来ませんというエラーが出たり、
保存も出来なくなり、せっかく作ったファイルが全部やり直しという事が、しばしばあります。
どうしたらいいでしょうか？
345:名無しさん＠そうだ選挙にいこう
10/08/09 20:54:38
>>344
その場合、Excelより先にPC本体のデータが無いと判断付かないんだが。
【6 PCのメーカ/型番 】
【7 搭載メモリ量 .】
この追加情報を出して欲しい。
346:名無しさん＠そうだ選挙にいこう
10/08/09 21:15:54
すみません、型番は今わかりません。
【6 PCのメーカ/型番 】 DELL
【7 搭載メモリ量 .】 ４GB
347:名無しさん＠そうだ選挙にいこう
10/08/09 21:25:08
小まめに保存が鉄則だけど、それにしても酷い状態だなあ。
バックグラウンドで動いているソフトを一時的に終了させればｲｲのでは？壁紙も無しにして。
デスクトップに保存してる物はマイドキュメントとかに移動。
タスクバーに無駄なアイコンを表示させない。
4G？何かの間違いだろ？
348:名無しさん＠そうだ選挙にいこう
10/08/09 21:33:08
>>344
ちょっと検索しただけでも色んな原因がありそうだ
エクセル2007 メモリ不足 でググッてみ
349:名無しさん＠そうだ選挙にいこう
10/08/09 21:34:56
重いので１０分ぐらい作業しても、ほとんど仕事が進みません。
それでやっと保存しようとするとデータが飛ぶ状態です。
目立つソフトは停止させてますが、状態はあまり変わってません。
IMEを変更した事によって、若干軽くなりましたが、
それでも、重くて、何度かエラーが出て保存出来ない状態になりました。
メモリは４Gです。
350:名無しさん＠そうだ選挙にいこう
10/08/09 21:36:47
>>348
検索した結果、いらないソフトを止めてクラシックスタイルにする。
アンチウィルスが邪魔してるので、IMEを変更する等が出て、
少しだけ軽くなりましたが、今日も仕事中に保存出来ない状態になり
何度も作業やり直しになりました。
351:名無しさん＠そうだ選挙にいこう
10/08/09 21:43:39
>>344
ものすごく大きなファイルなのか
外部参照をしたまま保存しているのか
352:名無しさん＠そうだ選挙にいこう
10/08/09 21:45:31
外部参照はしていません、ファイルは小さくても同じ状態になります。
もちろん大きな物も使っています、
対策としてデータを全部消して、書式を作り、
最後にデータを貼り付ける等して、どうにか作業していますが、
データがない状態でも、メモリ不足で落ちます。
353:名無しさん＠そうだ選挙にいこう
10/08/09 22:17:30
オプションの自動保存を1分後とにしておいたら良いかな？
逆に負荷がかかって開けなくなるだろうか？ｗ
計算方法の反復計算にチェックが入ってたりするのでは？
354:名無しさん＠そうだ選挙にいこう
10/08/09 22:23:14
アクロバットとかウイルスソフト関係もﾈｯﾄ上に出てるね。> 2007メモリー不足
何かとＥｘｃｅｌが戦っている可能性が高いなあ
355:名無しさん＠そうだ選挙にいこう
10/08/09 22:27:50
Glary Utilities
とかじゃね？
356:名無しさん＠そうだ選挙にいこう
10/08/09 22:33:25
計算関連は全てチェックを外してます。
自動保存が一分だと、処理待ち時間中に保存が入って
エラーで落ちると思います。
何かを表示させると、長い時は５分から１０分ぐらい待ちます。
ウィルスソフトはマカフィーが入ってますが、
インターネットには繋がっていませんので、
設定でオフ出来る部分はオフにしています。
357:名無しさん＠そうだ選挙にいこう
10/08/09 23:34:19
>344,352,356
当該パソコンでは最初からそんな風（Excelがやたら重い）でしたか？ あるときからそうなりましたか？
タスクマネージャを起動させているとＣＰＵ使用率がわかりますが、Excelもしくは他のプロセスで異常に
ＣＰＵ使用率が高くなっているものはありませんか？
メモリ不足と表示される、ということなので、Excelもしくは他のプロセスのメモリ使用量を調べてみては
いかがですか？
358:名無しさん＠そうだ選挙にいこう
10/08/10 01:36:13
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2002
【3 VBAが使えるか .】 少々
【4 VBAでの回答の可否】 可
【5 検索キーワード 】
会社のソフトで、画面をドラッグし、テキストとして
貼り付けたデータを各項目ごとに分けるには
どうすればいいでしょうか？
サンプル
URLﾘﾝｸ(uproda.2ch-library.com)
１～13行は、テキストとして貼り付けたデータの一部です。
これを18～28行のように、各項目ごとに分けたい。
359:名無しさん＠そうだ選挙にいこう
10/08/10 02:27:40
>>358
これだと、コピーして不要な部分を削って行くしか無いんじゃね？
スペースや特定記号で区切ったり文字数で抽出したり出来ないし。
360:名無しさん＠そうだ選挙にいこう
10/08/10 09:08:23
テーブルを3つ用意して
1：スペース3字分で区切って、セルに一つ一つ入れていく
2：セル一つのデータを見出しと内容に区切って新しい2列テーブルにいれていく
3：2列の配列を見出しのならべたい順序に書き出していく
となるのでは？
2と3は一つにできるが頭がこんがらがるだろう
1のときに ：を含むのを除外するのかな
361:名無しさん＠そうだ選挙にいこう
10/08/10 09:51:14
>>358
A1:A13を範囲選択
データ→区切り位置→カンマやタブ・・にチェック
次へ→スペースにチェック→連続した・・にチェック→完了
んで参照するとか
エディタ等で整形とカンマ区切りのデータにした方がいいと思う
362:名無しさん＠そうだ選挙にいこう
10/08/10 13:05:27
MacとWinでのExcelの画像の互換性に関しての質問です。
Mac上のExcel2004で作った.xlsファイルにpng形式の画像を貼って
送ると、Win上のExcel2007で開くと画像が文字化け
（画像の大きさの領域は残っていて、その中央に文字化けしたファイル名）
して読めないようです。
jpgファイルだと問題がないようです。
質問：どの画像形式ならば互換性が保たれるのかが解説されている
サイトや表などがあればお教えください。
もしくは、何らかの方法で互換性を保つやり方があるのでしょうか？
363:名無しさん＠そうだ選挙にいこう
10/08/10 13:08:24
パソコン一般板に質問しましたが、このスレを見つけたのであらためてこちらで質問させていただきます。
マルチになってしまい申し訳ありません。
板が分からなかったのでここで質問させていただきます。
もしスレ違いなら誘導していただければ幸いです。
キングソフトのエクセルを使って住所録を作ったんですが、最近、office2007を導入しました。
つきましてはキングソフトで作ったデータをエクセル2003や2007に変換するのはどうすればいいでしょうか?
コピーして張り付けても機械的なコピーで、セル幅などが調整されません。
同じような状態で使用できるようにコピーするにはどうすればいいでしょうか?
宜しくお願いします。
364:名無しさん＠そうだ選挙にいこう
10/08/10 14:16:52
>>363
キングソフトのエクセルってこれの事？
URLﾘﾝｸ(www.kingsoft.jp)
使った事ないから的外れかもしれないけど
ここ読むと
＞保存形式は、.xls（エクセル）の拡張子を選択できます。
ってなってるけどこれじゃだめなのかな
365:336
10/08/10 15:17:08
＞340
席順がかわるときはVLOOKUP関数ですか。なるほど。講習おわって座席レイアウト変わる前に試行錯誤します
＞341
ありがとうございます。とりあえずはこれでいけそうです。
助かりました。
366:名無しさん＠そうだ選挙にいこう
10/08/10 15:46:26
氏名と生年月日のリストから毎年成人式の対象者を選び出して
最終的には別のシートに一覧にしたいのですがどのようにしたら良いでしょうか？
特定の期間で対象者を選び○×をつけるくらいはできるのですが
毎年自動で変えたり対象者を別のシートに抜き出す方法がわかりません
367:名無しさん＠そうだ選挙にいこう
10/08/10 16:04:26
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003
【5 検索キーワード 】 EXCEL ツールバー 重い
前日からEXCELの左上にある
ファイル(F)をクリックしても３０秒位フリーズが続き反応が無く
作業が効率的に出来ない状態になってしまいました
ファイル(F)の下を表示するときだけなってしまう症状なのですが
何か対処方法は無いでしょうか？
368:名無しさん＠そうだ選挙にいこう
10/08/10 18:08:45
>>366
列に余裕があるなら生年月日から年齢を出して、
=datedif(引数1,引数2,"Y"）
引数１と引数２の差を"Y"(年数）で表示
4月1日の人は早生まれになるんだっけ？
引数１：生年月日
引数２：2011/4/1
あとはフィルタで20歳の人を抽出して、>>321,326の方法でコピーしたらどうでしょう？
369:名無しさん＠そうだ選挙にいこう
10/08/11 00:20:09
【1 OSの種類 】 WindowsXP
【2 Excelのバージョン 】 Excel2000
【3 VBAが使えるか 】 はい
【4 VBAでの回答の可否】 可
フッダに特定のセルに手入力した日付を印刷したいのですが、
例えば下のコードでセルA1には平成22年11月1日と入力、表示されていますが
フッダに印刷されるのは「11/1/2010」になってしまいます。
これを書式指定で和暦表示とかできるのでしょうか？
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = Range("A1").Value
End Sub
よろしくお願いします。
370:名無しさん＠そうだ選挙にいこう
10/08/11 01:52:30
>>369
ActiveSheet.PageSetup.RightFooter = Range("A1").text
では どうですか
371:名無しさん＠そうだ選挙にいこう
10/08/11 02:28:57
>>369
ActiveSheet.PageSetup.RightFooter = Format(Range("A1").Value, "ggge年m月d日")
372:名無しさん＠そうだ選挙にいこう
10/08/11 09:48:17
>>370
>>371
お二方の方法、両方共うまく行きました。
ありがとうございます。
373:名無しさん＠そうだ選挙にいこう
10/08/11 13:26:18
>>368
ありがとうございます
ちょっとがんばってみます
374:名無しさん＠そうだ選挙にいこう
10/08/11 15:18:31
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 】 エクセル 週単位 WEEKNUM
週単位の区切りで、商品数量データを入力し
指定日時点での在庫状況を表示させたいです
指定日・週区分をWEEKNUMで判別する方法を考えましたが
会社のPCではアドインが使用できませんでした
他に手段は無いものでしょうか？ご教示お願い致します
完成予想図（笑）を作ったので、私の稚拙な説明の足しにしてください
URLﾘﾝｸ(www.dotup.org)
375:358
10/08/11 20:43:02
>>359 >>361
ご回答ありがとうございます。
地道に、セル内の文字の長さ - 文字が始まる位置 - 1 を繰り返すことにしました。
376:名無しさん＠そうだ選挙にいこう
10/08/11 22:23:39
オートコンプリートについて教えてください。
文字を入力してオートコンプリートの候補がでてきても、それを選択せずそのまま入力する方法がわかりません。
「だいたいあってる」と一回別のセルで入力して、そのあと、「だいたい」とだけ入力しようとしても「だいたいあってる」が
勝手に出てきて、エンターを押すと、その入力になってしまいます。
どうやっても「だいたい」と入力できません。
オートコンプリート自体を解除する方法は知っているのですが、オートコンプリート自体は一応便利なので
その機能自体を解除せず、「だいたい」とやるにはどうしたらいいのでしょうか。
377:名無しさん＠そうだ選挙にいこう
10/08/12 00:08:14
「あっている」が反転されているときにDELで消すぐらいでしょうか。
378:名無しさん＠そうだ選挙にいこう
10/08/12 07:46:51
>>376
面倒だけど、「だいたい」で入力してスペース一個入れてバックスペースで戻る
379:名無しさん＠そうだ選挙にいこう
10/08/12 13:35:31
>374
日付を縦に並べて作ってみたので、検討ください。
URLﾘﾝｸ(www.dotup.org)
WEEKNUMという関数を使わなくても、入力した日付と当年の第１月曜日の日付から第○週を計算できます。
日付を縦にしたのは、ウィンドウ枠固定を利用できるのと、計算式中のSUM関数の範囲を行番号で示すこと
ができるためです。
380:名無しさん＠そうだ選挙にいこう
10/08/12 14:47:01
【1 OSの種類 .】 Windows vista home 64bit
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可。全く分からないですが、それが必要なら頑張ってみます。
【5 検索キーワード 】 htm excel 変換
お店の中古商品情報一覧の表がネット上にありまして
これをwebブラウザでなくエクセルでチェックできたらなあと思うのですが
これを可能にするにはどうすればよいのでしょうか？
目的のページはこちらになります→URLﾘﾝｸ(www.fujiya-avic.co.jp)
これをhtmで保存した後エクセルにD&Dし、テーブルで範囲を決めて
各枠の幅の決定まではできましたが、そのまま保存したのち再び開くと
枠の幅やテーブルが解除されてしまうみたいでした。
エクセルも初心者で分からないことばかりですが
これを機に勉強できたらなと思います。
どうかご教示のほどよろしくお願いします。
381:名無しさん＠そうだ選挙にいこう
10/08/12 16:20:28
>>380
保存する時にExcel形式(プルダウンリストの一番上)を選ぶ
382:名無しさん＠そうだ選挙にいこう
10/08/12 17:39:46
>>381
言葉足らずですいません。
web上のページの更新に連動するようにしたいのです。
383:名無しさん＠そうだ選挙にいこう
10/08/12 21:12:56
>>380
「データ」からWebクエリで、表の箇所だけ取り込める
10分おきに自動更新なども出来る
384:名無しさん＠そうだ選挙にいこう
10/08/13 00:37:57
>>383
ありがとうございます！こちらの方が簡単に取り込めますね、更新もできるみたいで凄く助かりました。
後は・・・この表をテーブルにできればよいのですが、取り込んだ全体の範囲をテーブルに指定すると
「選択範囲が、１つまたは複数の外部データ範囲と重複しています。選択範囲をテーブルに変換し、すべての外部接続を削除しますか？」
という注意書きが現れ、「はい」でテーブルを作成すると、データ>接続のプロパティーも操作不能になってしまい
おそらく更新が止まってしまうみたいでした。
テーブルを維持したまま、更新を有効にするにはどうすれば良いのでしょうか？
385:名無しさん＠そうだ選挙にいこう
10/08/13 02:16:38
【1 OSの種類 .】 Windows vista
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可。
【5 検索キーワード 】
A1からA10000までそれぞれ文字列で4つの数字が並んでいます。中には空白もある
その中で1850～2000の範囲に入る数値以外のデータがあれば
NGという入力チェックを作りたいのですが
VBAを駆使してもいいので
できれば別のシートで数値に変換してという方法以外でお願いします
386:名無しさん＠そうだ選挙にいこう
10/08/13 06:01:15
>>385
vbaを駆使する意味が分からない。
ｂ列かなんかにIF文いれてチェックするってこと？
387:名無しさん＠そうだ選挙にいこう
10/08/13 10:30:57
>>357
最初から重い状態です。
前にも書きましたが、タスクマネージャーで確認した所、
エクセル2007使用時のCPU負荷率54%、メモリ使用率75%です。
WindowsVista sp1でCPUは2.97G、メモリは4Gのスペックです。
388:名無しさん＠そうだ選挙にいこう
10/08/13 12:38:39
>>387
それは本当にExcelを新規で起動した時の状態？
マシンにもよるけど普通は負荷率２～３％上昇、
メモリ使用率１％程度上昇位で収まるはずなんだが。
もし新規で起動してもそうなら、明らかにExcel本体がおかしい。
Officeを完全にアンインストールしてからインストールし直した方が良い。
389:383
10/08/13 17:02:42
>>384
sheet1に、Webクエリでデータを取り出せたら、適当なnameを付けて保存する
Webクエリそのものはテーブルには出来ない。テーブルはネット上のデータを利用きないからだ。
だが同一ブック内のデータならテーブルぬすることが出来る。
そこで、sheet2で、今度は「データ」から外部データの取り込みへ進み、そのほかのデータソースへ入る
データ接続ウィザードへ進み、ODBC DSNを選択する
Excelファイルを指定し、自ファイルを選ぶ
後は勝手にテーブルにしてくれる。
考え方としては
Web上のデータ→（Webクエリ）→sheet1で一時的に蓄え→（ODBC）→sheet2でテーブル化
という流れ
390:名無しさん＠そうだ選挙にいこう
10/08/13 18:16:33
Sheet1にボタンを作り、Sheet2をイジったあとにセルの位置をA1にします。
以下のtest1はおｋなのに、test2は何がダメなんでしょうか？
Sub test1()
Sheets("Sheet2").Select
Range("A1").Select
Sheets("Sheet1").Select
End Sub
Sub test2()
Worksheets("Sheet2").Range("A1").Select
End Sub
391:名無しさん＠そうだ選挙にいこう
10/08/13 19:32:27
>>390
そういうものなのです。
シートを選んだ後、セルを選択しないとダメ。
ちなみにブックをまたがるときは、ブックを選択→シートを選択→セル選択 と順を追わないとダメ
392:名無しさん＠そうだ選挙にいこう
10/08/13 19:35:43
【1 OSの種類 】 WindowsXP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか 】 いいえ
【4 VBAでの回答の可否】 可
ウインドウ枠固定を設定して、固定した行の境目から下に
2つ目と3つ目のセルを結合した場合にその境目に見えない境界？が
残ってしまうのを排除したいのですがどのようにすればよいのでしょうか？
結合したセルに入力しにくくて仕方ないです。よろしくお願いします。
393:380
10/08/13 21:00:15
>>389
ご丁寧な解説とアドバイスありがとうございます！
勉強になりました。そしてできました！
ブックを開く際に更新と設定をしておいて、後はWWWCなどで更新の有無をチェックする形で使ってみます！
ただ、パスで2バイト言語があると更新がダメみたいですね
おとなしくデスクトップで使おうと思います。
それを差し引いたとしても、念願のチェック方法が出来るので本当に嬉しいです。
どうもありがとうございました！
394:390
10/08/13 22:58:23
>>391
㌧
395:名無しさん＠そうだ選挙にいこう
10/08/14 16:36:12
test