雑記帖

■ 為替相場

唐突ですが相場ちょっと安くなったのですな…　あと、８円くらい安くならないですかねぇ…　１３５円とは言わないまでも、１２９円くらい…　年末には１３５円くらいと思っていたんですが…　あてが外れています。

■ メンテナンスしてみる(2)

いままで、ツッコミをうけるとメールが配信されるように設定していたのだが、どうもプラグインへと機能を分離したもよう…　なかなか面白い。いじっているうちに時間が過ぎていきます(^^;;　そういえば、まだＣＳＳをいじっていなかった。

■ アニメや映画の“委員会活動”って何

そうそう、某Ｔ氏から最近はマーチャンダイジングをしっかり行ってロイヤリティで稼いで…って形に移行しているから…と聞いたことがある。確かに世界に冠たる産業*1に成りつつあるアニメであってもやはりファンドを組んで投資を受けるにはなかなか至らないよねぇ。

ちょっと面白そうなので、日経キャラクターズ買ってみることにしました。

■ メンテナンスしてみる(3)

ＣＳＳをいじる。これで以前に近い状態になってきたような気がするが、色が微妙に違う感じだったり、設定していない要素があったりで、結構大変(^^;

■ [misc]本日のリンク元

「VBA マルチページ 切り替え」で来ている方…

知りたいのは、方法なのかなぁ…　思った方法ではできなかったりして、ちょっと嫌になるんですよねぇ(^^;

ワシはそれではまりました。Accessの時もExcelの時も…

私の場合は殆ど使わないので、直ぐ忘れるんですけどね…

■ [忘備]VBA マルチページ

サンプルでも置いておきますかねぇ。直ぐに忘れるんですよね。ココに置いておけば忘れても探せるしねぇ。自分にあったコードのサンプルが置けるしね。

■ [VBA]マルチページ

Excel2000のVBAで作ったサンプル。

私の場合、マルチページって、小さい画面にページを切り替えても良いから一括管理したいオブジェクトがある時に良く使います。タブストリップだとちょっと感じが合わないときですかな(^^;

制御は、MultiPage1.Value　値は、１ページ目が0　

それを「スピンボタン」や「コマンドボタン」で切り替える。このボタン操作でページを切り替えるのがどのプロパティだったのかを良く忘れる(^^;

■ スピンボタン(1)

Page1からPage5までスピンボタンで移動させる。

UserForm1が開く前にMultiPage1のページ数にあわせてスピンボタンの最大最小を決めてしまいます。SpinButton1の値がそのままページ表示のための値とすれば問題なし。

Private Sub UserForm_Initialize()
    With SpinButton1
        .Value = 0
        .Min = 0
        .Max = MultiPage1.Pages.Count - 1
    End With
End Sub
----------------------------------------------------------------------
Private Sub SpinButton1_Change()
    Dim PageNumber As Integer
 
    PageNumber = SpinButton1.Value
    MultiPage1.Value = PageNumber
End Sub
----------------------------------------------------------------------

■ スピンボタン(2)

上記の場合は、Page1からPage5まで移動するとそこで止まる。最初も最後もそのページで止まる。

でも、Page5まで移動してもう一回ボタンを押すとPage1に戻ったりその逆にPage1からPage5に移動したりできないだろうか。と、考えてみたのが、下のコード。ちょっと条件判断を加えたんですけど、もう少しスマートな方法がきっとあると思うがとりあえず動く。スピンボタンの最大最小を一つ多めにとっておくのが、肝かも…。

で、こんな感じ…

Private Sub UserForm_Initialize()
    With SpinButton1
        .Value = 0
        .Min = -1
        .Max = MultiPage1.Pages.Count
    End With
End Sub
----------------------------------------------------------------------
Private Sub SpinButton1_Change()
    Dim PageNumber As Integer
 
    If SpinButton1.Value = MultiPage1.Pages.Count Then
        SpinButton1.Value = 0
    ElseIf SpinButton1.Value = -1 Then
        SpinButton1.Value = MultiPage1.Pages.Count - 1
    End If
    PageNumber = SpinButton1.Value
    MultiPage1.Value = PageNumber
End Sub
----------------------------------------------------------------------

■ [iPod] iTunesとiPod nanoをアップデート

現在引篭もり作業中。

ついでに手間のかからないiPod関連のアップデートも実施。回線の問題でいつもは放置しているんですがね。

デザインも少々変わっているようですなぁ＜iTunes 7.0.0.70

前回の更新時にはメニューも結構変わってましたが、今回はちょっと不明。

今度発売の最新のiPod nanoは特にどうでも良い感じ。

■ なんだか重い

iTunesが重いような気がする。

たまにしか使わないから、特に問題ないのだけど…