- 2008/05/09 12:57Offise2003と2007のボタンやメニューの位置
- Offise2003のボタンやメニューの位置が2007では分からない時は下記URLが参考になります。って、皆知ってる。遅〜〜^^;;; ↓http://support.microsoft.com/kb/934714/ja [続きを読む]
|
- 2008/04/20 21:23[ファイルを開く] ダイアログ ボックスを表示
- GetOpenFilenameメソッドのヘルプを参考にして下さい。^^；；Sub Test()Dim FName As VariantFName = Application.GetOpenFilename()MsgBox FNameEnd Sub... [続きを読む]
|
- 2008/04/08 22:43ステータスバー
- メッセージを表示します。 ↓Sub Test()Application.StatusBar = "こんにちは hinekure です。^^"End Sub標準の表示に戻すには ↓Sub Test2()Application.StatusBar = FalseEnd Subしかし、、、あまり目立ちません。。。... [続きを読む]
|
- 2008/04/01 09:57フォルダの削除(FileSystemObject)
- フォルダ内のサブフォルダ・ファイルも一度に削除します。Bookを一度保存して下さい。Sub Test()Dim objFSO As ObjectDim myFolder As StringSet objFSO = CreateObject("Scripting.FileSystemObject")myFolder = ThisWorkbook.Path & "¥hoge"objFS... [続きを読む]
|
- 2008/03/22 10:40なぜ？？？Bookを開かずに操作したいの？？？
- 分かりません。。。理解出来ません。。。考えるだけでも面倒だと思うのですが、、、タスクバーに表示されるのが嫌なのかな？？？表示されるのは一瞬だと思うのですが。。。Application.ScreenUpdating = False ・ ・ ・Application.Scre... [続きを読む]
|
|
|
- 2008/03/21 09:39指定したセルがウィンドウ内に表示されているか
- 表示されていれば、True をされてなければ、False
です。Sub Test()MsgBox Not Intersect(ActiveWindow.VisibleRange, R
ange("A1")) Is NothingEnd Sub※VisibleRangeプロパテ
ィ関連項目対象使用例アプリケーション情報オブジ
ェクトを返すプロパティです... [続きを読む]
|
- 2008/03/18 11:55こんな事に・・・9
- VBEが表示出来ない・・・マクロの実行中？ダイアログが表示されている？セルを編集中？たぶん、どれかではないかと。よ〜く確認して下さい。^^；；ほかにもあるかも。。。... [続きを読む]
|
- 2008/03/13 10:20CurrentRegion・・・う〜ん
- Excel2003のヘルプに下記のように書いている。※CurrentRegion プロパティ関連項目対象使用例アプリケーション情報オブジェクトを返すプロパティです。アクティブ セル領域 (Range オブジェクト) を返します。アクティブ セル領域とは、空白行と空白列で囲まれたセ... [続きを読む]
|
- 2008/03/11 20:30セルA1の文字列をB1からセルに一文字づつに
- 関数でやればもっと簡単に出来るのでしょうね。。。VBAでも、もっと正確に短く出来るんだろうな・・・Sub Test()Dim WS As WorksheetDim buf As VariantDim myLen As LongDim myRng As StringDim f As LongSet WS = Worksheets("Sheet1")With WS.... [続きを読む]
|
- 2008/03/06 21:53あまりはいくつ
- 【開発環境】 winXP + Excel2003VBA【動作確認】 winXP + Excel2003/2007制限時間内に割り算の「あまり」を選んでクリックして下さい。 +)左上の「S」ボタン、クリックでゲームスタート+)間違ったらゲームオーバー+)TIMEが0でゲームオーバーご利... [続きを読む]
|
- 2008/03/05 09:25Cstr - なぜ省略されるんだろう・・・
- エラーにならないから別に気にしないのかな？それとも、もっと奥が深いスッゴイ理由があるのでしょうか。・・・私は、省略できない・・・たまに忘れるけど・・・Sub Test()Dim f As LongWith Worksheets("Sheet1") For f = 1 To 10 .Ra... [続きを読む]
|
- 2008/02/29 10:10Mod演算子
- 割り算の「あまり」ですね。^^；あまり参考になら
ない・・・・・・でも、、、よく使います。。。Sub T
est()Dim myX As LongDim myY As LongDim f As LongWith Worksheets(&qu
ot;Sheet1") .Range("A1").Value = "問
題" .Range("B1").Value = ... [続きを読む]
|
- 2008/02/25 22:45その月の日数分シートを作成
- 下記コードで出来ますが、細かいエラー処理はしていません。^^；でも何か思ったより長いコードに・・・Sub Test()Dim f As LongDim myY As IntegerDim myM As IntegerDim myD As StringDim LastDay As IntegermyY = Year(Now)myM = Month(Now)myD =... [続きを読む]
|
- 2008/02/24 14:15ベータ版 仲間外れはだ〜れだ
- ベータ版なのでまだ改良が必要。^^；；【開発環境】 winXP + Excel2003VBA【動作確認】 winXP + Excel2003/2007制限時間内にペアになってないキャラクターを探してクリックして下さい。正解すればキャラクターが増えていきます。 +)左上の「S」ボタン、ク... [続きを読む]
|
- 2008/02/21 10:25超簡単ゲーム？時間内に何回クリック出来る？！
- 「START」ボタンをクリックすると黄色のバーが減っていきます。黄色のバーが無くなるまで「CLICK」ボタンをクリックし続けて下さい。何回、クリック出来るかという、単純なゲームです。「STOP」ボタンは念のため付けてるだけです。^^；マウスが壊れても自己責任で... [続きを読む]
|
- 2008/02/12 10:43覚えにくい？・・・Do Loop
- Do Loop をヘルプで見てもなんだかよく解らない。下記みたいに色んな使い方があります。設定した条件になるまで、処理を繰り返す。1) Do Until 条件 処理 Loop2) Do 処理 Loop Until 条件設定した条件の間、処理を繰り返す... [続きを読む]
|
- 2008/02/10 14:35おばちゃんがフリーズ！罫線が変・・・
- 昨日、おばちゃんが、参考書を見ながらExcelを勉強してました。^^一瞬、おばちゃんがフリーズ！で、PCを覗いてみると、、、下図みたいに・・・・・・あれ？罫線が変？？？どうなってるの、壊れたの、、、良〜く考えると当たり前のことでした。^^；；；... [続きを読む]
|
- 2008/02/07 22:16セルにデータを書き込む時のスピードの差
- セルにデータを書き込む時、セルをループしながら書き込むのと配列に入れて一度に書き込む時のスピードの差は分かっていましたがこんなに差があるとは。。。この程度なら配列に入れなくてもとあまり違わない思って下記コードで処理してみましたが、遅くて使... [続きを読む]
|
- 2008/02/06 10:15色のついたセルの数を・・・
- よく見かけますが、、、なぜ、色のついたセルの数を数えたいのか私にはよく解りません。。。下記コードを標準モジュールにコピーして実行して下さい。 シート１のセルA１：A25にランダムに色を塗り（１〜５のColorIndex ) その数をColorIndex 別にC列に表示しま... [続きを読む]
|
|
|
- 2008/01/31 20:11色んな意味で面白いExcelVBAの本、みーつけ。
- 先日、アマゾンで「教師のためのExcelVBA活用法」って本を買った。衝動買いってやつです。^^；；別に教師でも、教育関係者でも無いが、何故か題名に非常に興味を持ってしまった。。。何が面白いかって? 今までにないVBAの解説です。^^とにかく、シンプル イ... [続きを読む]
|
- 2008/01/26 20:15Or演算子のよくある間違い
- よく聞かれます。どこが間違ってるのと・・・・・・下記コードはxが、1か2なら"OK"、それ以外は"NG"と表示します。間違い↓Sub Test()Dim x As Longx = 3If x = 1 Or 2 Then 'x=2としないとダメです。 MsgBox "OK"Else MsgBox "NG"... [続きを読む]
|
- 2008/01/25 08:25VBAでワークシート関数のCountIfを使用して
- ワークシートのセルA1:A10の範囲で○の個数を取得し
ます。Sub Test()Dim myRng As RangeDim myC As LongSet myRng = Works
heets("Sheet1").Range("A1:A10")myC = Applicati
on.WorksheetFunction.CountIf(myRng, "○")MsgBox myCEnd Su
b... [続きを読む]
|
|
|
- 2008/01/14 15:37A列のフリガナをB列に表示
- Sub Test()Dim Lrow As LongDim buf As VariantDim f As LongWith Worksh
eets("Sheet1") Lrow = .Range("A" & CStr
(Rows.Count)).End(xlUp).Row ReDim buf(1 To Lrow, 1 To 1
) For f = 1 To Lrow buf(f, 1) = StrConv(Ap
pl... [続きを読む]
|
