すべての機能をご利用いただくためには、JavaScriptの設定を有効にしてください。
設定方法は、ヘルプをご覧ください。

～ステキに感じるマイライフ～

ご訪問ありがとうございます。今日もステキな１日でありますように♪

お気に入りの人に登録/削除

過去の投稿日別表示

[ リスト | 詳細 ]

2005年11月15日

2005年11月14日 | 2005年11月16日

全1ページ

[1]

♥ねこの刺繍の手提げ♥

イメージ 1

　　　　　　　　　　　　　　　　　　　　　　　　　♥刺繍の手提げ♥

　　　　　　　　　　　　　　　　　　デニム地の小さめの手提げでＢ５位の本が入る大きさです。

　　　　　　　　　　　　　　　　　　図書館に行く時などに使用しています。

　　　　　　　　　　　　　　　　　　小花を沢山あしらって赤いリボンもつけてみました。

　　　　　　　　　　　　　　　　　　ちょっと寂しいので傍らになにか置こうと思案中です。

コメント（6）

トラックバック（0）

セルに書いた画像を動かそう②

【セルに書いた画像を動かそう②ＶＢＡを記述する】

前回保存したブックを開く
【ＳＴＡＲＴ】ボタンを選択して〔右〕クリックし、メニューから〔マクロの登録〕
マクロの登録画面が表示されたら〔新規登録〕を選択
Visual Basic Editorが表示される

〔Visual Basic Editor〕が表示されたら〔Module1〕を表示させる
Option ExplicitｔとSub図_click()の間に

Public car_m As Integer
Const car_r1 = 2
Const car_c1 = 2
Const car_r2 = 9
Const car_c2 = 10
Const car_w = 8
Const car_end = 30 と記述
続いて
Sub 図_click()に

Dim i As Integer
Dim j As Integer

For i = car_c1 To car_end Step 1
Range(Cells(car_r1, i), Cells(car_r2, car_w + i).copy _
Destination:=Range(Cells(car_r1, i + 1), cells(car_r2, car_w + i + 1)
car_m = i + 1
DoEvents
For j = 0 To 5000
DoEvents
Nxst
Nexst と記述する
保存する

同じように〔ＲＥＳＥＴ〕ボタンも記述する
前回のブックを開く
〔ＲＥＳＥＴ〕ボタンを選択〔右〕クリックでメニューから〔マクロの登録〕
マクロの登録画面が表示されたら〔新規作成〕を選択
Visual Basic Editorが表示されたら〔Module1〕を表示させ
Sub図2_clich()に
If car_m < car_c Then
car_m = car_c1
End If
Range(Cells(car_r1, car_m), Cells(car_r2, car_m + car_w)).Copy _
Destination:=Range(Cells(car_r1, car_c1), Cells(car_r2, car_c2))
Range(Cells(car_r1, car_c1 + car_w),Cells(car_r2, car_m + car_w)) _

.Interior.colorIndex = xlNone

car_m = car_c1
と記述する
〔ＳＴＡＲＴ〕ボタンを押すと車が動き出し〔ＲＥＳＥＴ〕ボタンを押すと元の位置に戻る