5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 46

1 :名無しさん@そうだ選挙にいこう:2006/06/18(日) 23:02:37
Excel総合相談所 46 にだ

答えやすく質問しましょう
質問者の役に立つ回答をしましょう

952 :名無しさん@そうだ選挙にいこう:2006/07/13(木) 23:42:37
>>949
オートフィルとか調べれ。
あと、範囲を選択してから、式入力後、Ctrl+Enterで確定という手もある

953 :名無しさん@そうだ選挙にいこう:2006/07/13(木) 23:43:29
1
  (空白)
2
3
をコピーして張り付けたときに
1
2
3
としたいのですが、どうしたらよいでしょうか?
貼り付けのとき空白のチェックを入れてもうまくいかない

954 :名無しさん@そうだ選挙にいこう:2006/07/13(木) 23:46:49
>>951
>>952
ただの四則計算なのですが、例えば数式が Cn=An-Bn の場合はどうしたらいいのでしょうか?

955 :名無しさん@そうだ選挙にいこう:2006/07/13(木) 23:51:51
オートフィルで調べたら出来ました。有難うございました♪

956 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 01:59:32
>>953
空白は、下のような1,空白,2,3の列を空白,5,空白,空白の列に貼り付けたときに
B列は1,5,2,3となるように貼り付けるためにチェックする。
AB

 5



VBA使わないなら、オートフィルタを使って「空白以外のセル」を抽出→コピー
→貼付→オートフィルタ解除

957 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 02:30:46
昨日、こんな現象に遭遇しました。
ブレークポイント(以下BP)を設定して、動作をチェックしていたのですが、
突然、BPで止まらなくなってしまいました。
BPを設定したプロシージャを呼び出しているステップにBPを設定すると、
確かに呼び出しているんですが、BPを設定したプロシージャのどこにBPを設定しても効果なし。
そこで、問題のBPが効かないプロシージャの中身全てをコメントアウトすると、
処理の記述がないにもかかわらず、本来の処理がされた結果になるんです。
最後には、プロシージャ自体をコメントアウトしたら、
プロシージャがありません!だと
んで、コメントをはずすと、何も問題がなかったようにBPで止まるようになりましたとさ
めでたし、めでたし。
つかれた。
無駄な時間を返してくれ。

958 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 04:15:30
sheet1に書き込んだ値をsheet2の決まった範囲に移すというマクロをつくりたいんですけど
だれか教えてください

959 :名無しさん@お腹いっぱい。:2006/07/14(金) 04:32:22
もう少し具体的に書いたほうがいいかと

960 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 04:52:41
簡単過ぎて馬鹿かと言われるかもしれないけど

例えばsheet1のA1 A2に数値を入力してボタンを押すと
その値がSheet2の上の行から順番に入力されて縦型の表ができるようにしたいんです!

961 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 05:03:45
つまりsheet1の適当なセルに、数値を入力して確定(enter)するたびに、
sheet2のA列の上から最初に空白のセルに埋めていけばいいんだな。

sheet1は入力シート
sheet2は入力値を保存するシート
簡単すぎる。誰か教えれ!

962 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 05:18:34
>>961
そんな感じです!解説thx
誰か教えてください!!


963 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 06:21:14
>>962
すまん、w98なのでフリーズしてしまった。
スキャンディスクめんどい
そろそろ買い換えないとなぁ

Sheet1のコードに貼り付けて、
Sheet1の適当なセルに入力してみて


Private Sub Worksheet_Change(ByVal Target As Range)
Dim w As Range
Application.ScreenUpdating = False
Sheets("Sheet2").Activate
Set w = Sheets("Sheet2").Range("A65536").End(xlUp)
w.Offset(1) = Target.Value
Sheets("Sheet1").Activate
Target.Select
Application.ScreenUpdating = True
End Sub


964 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 07:10:54
すみません、違ってた・・。
これ以上聞くのは厚かましいような気もしますが。

もっとシンプルに
アクセスで例えるとSheet1がフォームでSheet2がテーブルみたいな感じで
例えばA1に商品名A2に数量A3に単価を入力する項目があって
数値を入力して、確定ボタン(フォームのボタン)を押すと
次々とSheet2の上から最初に空白のセルにデータが埋まっていく
尚且つ、Sheet2のA4には単価*数量の値が入ると、という風にしたいんです!!

965 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 08:11:47
ほとんど同じようなもんだし、基本すぎるぞ(一冊ぐらいVBA本は買ったのか?)
チェックとかは抜きで!、もう出かけるよ

Sub Macro1()
Dim w As Range
Application.ScreenUpdating = False
Sheets("Sheet2").Activate
Set w = Sheets("Sheet2").Range("A65536").End(xlUp)
w.Offset(1, 0).Value = Sheets("Sheet1").Range("A1").Value
w.Offset(1, 1).Value = Sheets("Sheet1").Range("A2").Value
w.Offset(1, 2).Value = Sheets("Sheet1").Range("A3").Value
w.Offset(1, 3).Value = Sheets("Sheet1").Range("A2").Value * Sheets("Sheet1").Range("A3").Value
Sheets("Sheet1").Activate
Application.ScreenUpdating = True
End Sub



966 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 08:44:04
>>965
とりあえず出来るようになりました!

あとはVBAの本を買って勉強して自分でアレンジしていきます。
ほんとうにありがとう。あなたのことは忘れない!

967 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 11:10:00
数字を文字列に変換する関数はあるんですけど
その逆はないのでしょうか?
たとえば数値に変換できる文字は数値に変えちゃって、出来ない文字はエラーを返すとか

やりたいことは
セルに文字列が入っていて、その最初の文字が数字(1〜9)かどうか、判別したいのですが。

文字コードで調べるしかないかな?

ご存知の方お願いいたします。

968 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 11:12:08
>>967
あるよ

>>6
> = FAQ: 基本 =
> Q1:こんな関数ありませんか?


969 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 11:18:21
>>967
A1を検査する場合。2文字目以降は無視でよいなら
=IF(ISNUMBER(VALUE(LEFT(A1,1))),VALUE(LEFT(A1,1)),"")

970 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 14:08:36
次スレ http://pc8.2ch.net/test/read.cgi/bsoft/1152852610/
ちゃんと使い切ってからね

971 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 14:35:42
2げっと

972 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 14:56:20
3ゲッチュー

973 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 15:37:24
4ゲッチュウ!

みんな早く次スレに行きたくてしょうがないんだなぁ・・・。

974 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 15:42:25
張り切ってるのはテンプレ貼りたくてしょうがなかった基地外だけだろ

975 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 15:49:07
確かに良くできたテンプレだな。
でも初心者にコレ全部読めってのも無理があるかも。

976 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 17:30:15
これでチョットでも、決め事から外れたら
「テンプレ嫁」なんていうレスつけて、
殺伐とした空気をかもし出してくれることだろう

977 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 17:43:03
早速、新スレに書き込みが行われてるぞ。
早くこのスレを消化させないとっ!

978 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 17:52:38
よし俺も手伝おう

979 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 18:03:10
初心者の俺に面白マクロのコード教えて

980 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 18:04:57
>>978
じゃあ俺も

☆聞かれてもいないのに勝手に答えるコーナー☆

Excelで最初から用意されてる色は限られてるので
自分で好きな色を作ろう!


ツール → オプション → 色

"標準の色"の中で上書きしたい色を選択 → 変更

"標準"もしくは"ユーザー設定"の中で好きな色を選択 → OK


俺は薄いピンクを好んで使ってる♪

981 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 18:17:10
>>979
Excel97限定の隠しコマンドで良かったら。
(有名だから知ってるかも?)


[F5]を押して、[ジャンプ]ダイアログボックスを開く。
[参照先]欄に「X97:L97」とタイプし、[OK]ボタンをクリック。

L97からX97までのセルが選択状態になり、
アクティブセルの位置がL97であることを確認したら、
[Tab]を押して、アクティブセルの位置をM97に移動する。

[Ctrl]+[Shift]を押しながら、
[標準]ツールバーの[グラフ ウィザード]ボタンをクリックする。

画面がフルスクリーンモードに切り替わり、
3Dポリゴンの風景が登場!
[Esc]を押せば終了できる。


Excel2002で似たような裏技があったら誰か教えて!

982 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 18:21:50
自分好みのカラーパレットを保存することってできますか?

983 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 18:29:49
左上の全セルを選択するボタンをクリックしてセルの結合
フォントを太文字サイズ409にして「ぬ」と入力する

984 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 18:32:39
>>982
私は自分好みのブックを作って"白紙.xls"という名前で保存してます。

オリジナルカラーパレットは、ブックに保存されるので
"白紙.xls"を開けば すぐ使えます。

パレットに限らず、改ページプレビューの倍率を100%に固定とか(標準は60%)
余白を上下左右1cmに統一 なんてのも"白紙.xls"に保存してます。

Excelで新しく書類を作成するときは必ず"白紙.xls"をベースにしてます。
そうすれば最初から自分の好みの書式で始められるからね。

かなり便利よ〜♪

985 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 18:36:41
まるほど、カラーパレットを簡単に変更するマクロ作ってくれる人いないかな

986 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 19:31:25
白紙.xlsいただきます

987 :名無しさん@そうだ選挙にいこう:2006/07/14(金) 23:32:04
つxlt

988 :名無しさん@そうだ選挙にいこう:2006/07/15(土) 00:17:51
テンプレートって使いづらくね?

989 :名無しさん@そうだ選挙にいこう:2006/07/15(土) 08:35:11
テンプレート?
何の?

990 :名無しさん@そうだ選挙にいこう:2006/07/15(土) 08:59:47
>>989
拡張子.xltのこと。ヘルプで調べれ。
ちなみに役に立たない(俺的には)

でも.xlwは役に立つ。

991 :名無しさん@そうだ選挙にいこう:2006/07/15(土) 11:56:13
1000ゲットする前に何かすごい裏技を書き込んでよ

992 :名無しさん@そうだ選挙にいこう:2006/07/15(土) 12:02:00
>>991
=1-1/3-1/3-1/3
=(1-1/3-1/3-1/3)
=IF(A1=A2,"同じに決まっている","なんで・・・")

993 :名無しさん@そうだ選挙にいこう:2006/07/15(土) 12:28:32
>>982,985
設定保存
Open "設定ファイルパス" For Output As #1
Print #1, Join(ActiveWorkbook.Colors, vbCrLf)
Close #1

設定読込
Open "設定ファイルパス" For Input As #1
ActiveWorkbook.Colors = Split(Input(LOF(1), #1), vbCrLf)
Close #1


ちなみに俺はユーザーフォーム使って、入出力ファイルを選択したり、リセットしたり
設定を適用する前に選択した設定ファイルのプレビューを表示したり出来るようにしてる。
まあ、その辺は必要なら自分で作ってくれ。テキスト形式ではなくバイナリ形式で配列を保存してもいいし。
>>984も含めてテンプレート方式は基本的に新規作成のときしか使えないからな。
まあ、設定をブックに保存して
ActiveWorkbook.Colors = CreateObject("Excel.Application").Workbooks.Open("ブックパス").Colors
なんて方法もあるけど、処理は遅いし、色設定保存するだけなのに、
全ての情報を保持するブックをそのまま使うってのもなぁ。


>>990
俺にとってはxlwの方が無用だな。


>>991
上記マクロじゃ不足かな?
まあ、すごい裏技って程じゃないけど、982,985に対してこういう手法が挙がらなかったってことは
皆こういう手法を知らないってことでしょ。


994 :名無しさん@そうだ選挙にいこう:2006/07/15(土) 12:51:39
>>992
面白い

995 :名無しさん@そうだ選挙にいこう:2006/07/15(土) 13:20:19
>>992
何でこうなるのか誰か説明してください。

996 :名無しさん@そうだ選挙にいこう:2006/07/15(土) 13:45:07
>>981試したけどスゲーぞ。
面白くは無いがこういった遊び心があるマイクロソフトに惚れた。

997 :名無しさん@そうだ選挙にいこう:2006/07/15(土) 14:05:45
>992のたぐいは昔からある計算精度の誤差問題だね

998 :名無しさん@そうだ選挙にいこう:2006/07/15(土) 14:37:19
>>1000に期待がかかる

999 :名無しさん@そうだ選挙にいこう:2006/07/15(土) 14:40:43
>>995
ちょっと調べてみた。
http://aoki2.si.gunma-u.ac.jp/Hanasi/excel/index.html

1000ゲットするひとは
きっと最強の裏技をカキコするに違いない。。。

1000 :名無しさん@そうだ選挙にいこう:2006/07/15(土) 15:34:35
Excel最強の裏技、それはVBAを使いこなすことだ。
信じられねーようなことが出来るようになる。

1001 :1001:Over 1000 Thread
このスレッドは1000を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。

295 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.02 2018/11/22 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)