Excel総合相談所 106

>>948
できました。感謝です。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim syou1, syou2 String
Dim ten1, ten2, kazu As Integer
syou1 = Range("W2")
syou2 = Range("X2")
ten1 = Range("W1")
ten2 = Range("X1")
Range("T1:T100") = ClearContents
For kazu = 1 To 100
Cells(kazu, 1) = "処理中"
Next
For kazu = 1 To 100
Cells(kazu, 1) = ClearContents
If Cells(kazu, 1) <> "処理中" Then
If Cells(kazu, 19).Value >= ten2 Then
Cells(kazu, 20).Value = syou2
End If
If Cells(kazu, 19).Value >= ten1 Then
Cells(kazu, 20).Value = syou1
End If
Cells(kazu, 1) = ""
End If
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Application.EnableEvents = False
↑これだけでいいんだよ　"処理中"とか意味ないから

>>952
初歩的過ぎて誰も指摘してないけど、変数の宣言部分もおかしいよ。
Dim a,b As Integer
だと
a はVariant型、b はInteger型になる
面倒でも
Dim a As Integer,b As Integer
って書かないと両方Integer型にはならない

もちろん、Variant型のまま使っても問題ないけど、
もっと大規模なソースコードだと
全体の見通しが悪くなるから
変数の型をきちんと宣言しておいたほうが
何か不具合が会ったときのデバッグ作業が楽になる。

Range("T1:T100") = ClearContents

>>954
ありがとうございます。
ご指摘のところを直したらスムーズに動くようになりました。

>>950
簡単なゲームを具体的に書いてくれ
何のキーをどんなふうに入力させたいんだ？

>>957
例えばセルで壁(■)と通路(空欄)を作り、
自分は通路を↑↓←→(あるいは2、4、6、8)ボタンで自由に行き来でき、宝を探したりする。
モンスターが何匹かいて動き回っており、主人公を見つけると追いかけてくる。
武器はたとえは光線銃で、メータがあってそれが残ってるかぎりモンスターを攻撃できる。
みたいなゲーム。

なんでそれをエクセルでやろうと思ったんだろう

>>958
例えばカーソルキーの入力だけでいいならSelectionChangeで代用できるけど
Windows API使うのが一般的だと思うよ
↓こっち池ボケ
http://toro.2ch.net/test/read.cgi/tech/1342087380/

>>959
単純に、本当に何も知らないんだろう
たまたま目の前にあったvbaでプログラムを組みたくなる気持ちは、俺も結構分かる

>>959
Excel VBAで作るのが手っ取り早い気がするけど？
もっと簡単な手段を知ってるなら隠さず書いてくれればいいのに役に立たないヤツだな

>>962
手っ取り早くねぇだろOfficeは有料だしゲーム用のライブラリも何もないし
HSPとかJavaとかフリーのもんもいくらでもあるだろ

むしろゲームには一番不向きな言語であろう・・・

VBAでゲーム開発する時に困ること
・入出力が面倒
→画像、動画、音声の出力、キー入力。USBデバイスとかになると死ぬ
・重い
→ゲームは一秒に60回の計算、描画がある。
・バージョン差が激しい
→色やセル幅など、見た目のズレが起こる可能性アリ

VBAが使えるなら最初はHSPの方が絶対に楽。
今更HSPというのもナンだが。確かクラスが使えないんだっけか。
慣れてきたらC#.NETがオススメ。無料であり、ユーザーが多い。ライブラリもサンプルも死ぬほどある。

新年早々VBAの話題かよｗ

【1 OSの種類 　 　 　 　 .】 WindowXP
【2 Excelのバージョン 　 】 Excel2010

マクロのボタンをクリックして印刷のプレビュー画面を出したいのですが、
マクロの自動記録をやっても何も書かれていません。
どう書けばいいですか？

それから、1ページ43行の文書フォーマットがあり、43行までなら拡大/縮小100%、
44〜48行なら横×1縦×2に収め、フッターに1/?ページを設定するには
どう書けばいいですか？

訂正です

【誤】
それから、1ページ43行の文書フォーマットがあり、43行までなら拡大/縮小100%、
44〜48行なら横×1縦×2に収め、フッターに1/?ページを設定するには
どう書けばいいですか？

【正】
それから、1ページ43行の文書フォーマットがあり、43行までなら拡大/縮小100%、
44〜47行なら横×1縦×1に収め、48行以上なら拡大/縮小100%で2ページにまたがり、
フッターに1/?ページを設定するにはどう書けばいいですか？
最大70行程度なので、3ページになることはありません。

Sub test()
Dim r As Long

With ActiveSheet.UsedRange
r = .Row + .Rows.Count - 1
With ActiveSheet.PageSetup
Select Case r
Case Is < 43
.Zoom = 100
.CenterFooter = ""
Case Is < 47
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.CenterFooter = ""
Case Is >= 48
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 2
.CenterFooter = "&P/&N"
End Select
End With
End With

ActiveSheet.PrintPreview

End Sub

修正

Sub test()
Dim r As Long

With ActiveSheet.UsedRange
r = .Row + .Rows.Count - 1
End With
With ActiveSheet.PageSetup
Select Case r
Case Is < 43
.Zoom = 100
.CenterFooter = ""
Case Is < 47
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.CenterFooter = ""
Case Is >= 48
.Zoom = 100
.CenterFooter = "&P/&N"
End Select
End With

ActiveSheet.PrintPreview

End Sub

>>963-965
>>958程度のもん作るなら別にExcelでも困らんだろ
HSPとかJavaとかC#とか知らない言語を一から覚えて作るほうがめんどくさい

Excelでテトリスつくったひとがいるんじゃなかったか
それ見れば参考になるんじゃね

>>971
エクセルVBA知ってる前提ならな…
その前提がないんだからどれでもいいってことになる

そもそもExcel VBAを知ってるなら>>950や>>958みたいなアホな聞き方しないしな

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

うまくいかなかったので、分解してみました。
With ActiveSheet.UsedRange
　r1 = .Row
　r2 = .Rows.Count - 1
End With
r = r1 + r2
MsgBox r1=" & r1 & ", r2=" & r2: Exit Sub

r1が1、r2が69でした。
しかし、データがある行数は43で、44〜70は空白セルです。

♪なんでだろ〜ぉなんでだろ〜　なんでだなんでだろ〜〜〜

VBA知っててもキー入力なんて必要にならないからそういう聞き方になっても不思議じゃないと思うが。
>>974
んでキー入力はどうやってかけばいいの？

>>976
Excelのマクロでは無理API使え

>>975
最終行の求め方は、いろいろあるので、調べてみてらどうですか

>>952
コードは動けばいいってもんじゃねーぞ
>>955も指摘してるが ClearContentsは未宣言の変数として扱われてる
未宣言の変数の値はEmptyだからRange("T1:T100") = Emptyって書いてるのと結果的に同じでたまたまうまくいってるだけ
Range("T1:T100").ClearContentsってしないとな

エクセルの資格を取ろうかと思い質問なのですが、
自分のwindows 7のノートPCには最初からエクセルが入っていなくて、
父親の古いXPのノートPCにはエクセル２００３が入っています。
なのでエクセルの学習をする時は父親のノートPCを借りようかと思いユーキャンでエクセル２００３のゲーム感覚で学習できるソフト付き教材と本がセットのを数ヶ月前に購入しました。
学習ソフトは２００３はXPにしか対応していなく、２００７、２０１０はvistaと7だけしか対応していませんでした。
ですが自分のノートPCがあるのにわざわざ父親にノートPCをいちいち借りなきゃ学習できないのがめんどくさくてあまり勉強していませんでした。
ですが、最近エクセル２０１０を購入して自分のPCからでもエクセルを使えるようにしようかと考えています。
ユーキャンでエクセル２００３の教材を買ってしまったのですが、２００３の内容書でもエクセル２０１０で学習できるのでしょうか？

出来ないこともないけど2003〜2007で大分仕様が変わって
2010は2007を引き継いでるからな。分かりづらい部分もあるだろう。でも基本は覚えられるとおも。
ちなみに2010→2013でもかなりインターフェイスが変わってるぞ
今更2003の教材なんか使うより、その辺の1000円2000円の本買ってきて2010か2013覚えたほうがいい

hoge=Columns.Countとか斬新だな

>>978

With ActiveSheet.UsedRange
　r = .Row + .Rows.Count - 1
End With

これ↑を、こっち↓に変えてみました。

For j = 1 To ActiveSheet.UsedRange.Columns.Count
　rx = ActiveSheet.Cells(ActiveSheet.Rows.Count, j).End(xlUp).Row
　If rx > r Then
　　r = rx
　End If
Next

みなさん、ありがとうございました。

Sub a()
Dim x As Long
For col = 1 To Columns.Count
xnew = Cells(Rows.Count, col).End(xlUp).Row
x = Application.WorksheetFunction.Max(x, xnew)
Next
MsgBox (x)
End Sub
ｵﾜﾃﾀ

>>981
2013ってもう発売されていたんですか？
通販サイトで教本は2010、2007あたりが多いみたいなので2010にしてみようかと思います！
教えていただきありがとうございました。

あ

Excel総合相談所 107
http://toro.2ch.net/test/read.cgi/bsoft/1357252928/
次スレ

乙

>>987
おつ

うめ

>>987
おつ

うめ

うめ

梅

うめるのはやくね？

うめ

うね

うべ

千

今だ！１０００ゲットォォｫｫ！！
￣￣￣￣￣∨￣￣￣　　　　　　　(´´
　　　 　 　 　 　 　 　 　 ∧∧　　　　　　　(´⌒(´
　　　　　　 　　　　　⊂（ﾟДﾟ ）≡≡≡(´⌒;;;≡≡≡
　　　　　　 　⊆⊂´￣ ⊂ソ 　(´⌒(´⌒;;
　　　　　　　　　　￣￣￣　　　ｽﾞｻﾞｰｰｰｰｰｯ

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