<< 2012年10月 | TOP | 2012年12月 >>
- 1 2 3 4 5.. >>

2012年11月30日

レポートでフォントサイズを自動縮小したい[AccessVBA]

Accessのレポートで、フィールド内の文字を縮小させるときに

「特定の文字数を超えたら、フォントサイズを○ptにする」っていうのはやっていたのですが、

自動的にフィールドに入りきるフォントサイズに出来ることを知りませんでした。。

TextWidthで、文字列の幅がわかるんですねぇ。


Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
    Dim strTxt As String
    Dim i As Integer
    Dim BoxSize As Long
    Dim TxtSize As Long

    Me.FontSize = 10
    Me.[テキストボックス].FontSize = 10
    
    strTxt = Me.[テキストボックス].Text
    i = Me.[テキストボックス].FontSize
    
    BoxSize = Me.[テキストボックス].Width
    TxtSize = Me.TextWidth(strTxt)

    Do While BoxSize < TxtSize
        Me.[テキストボックス].FontSize = i - 1
        Me.FontSize = i - 1
        TxtSize = Me.TextWidth(strTxt)
        i = i - 1
    Loop
    
End Sub
なるほど〜かわいい
posted by Ponta at 18:33| Comment(0) | TrackBack(0) | AccessVBA | このブログの読者になる | 更新情報をチェックする

2012年11月29日

使用中のファイルが編集できるようになったら教えて！[Excel]


ユーザー名登録_例.jpg

誰か別の人が使っているブックを開いたとき、↑のようなメッセージが出ますが

「読み取り専用じゃ困る！」って、「キャンセル」ボタンを押して、閉じてしまう方がいらっしゃいますたらーっ（汗）

そういう時は、「通知」ボタンを押して開いてくださいひらめき
通知_msgbox.gif


「通知」で開いておけば、使用中の人がブックを閉じたときに

↓のように編集できるようになった事をメッセージで教えてくれるんですぴかぴか（新しい）
通知_使用可能.gif

「編集」ボタンを押せば、読み取り専用が解除されて普通に使えまするんるん


閉じたかな？まだかな？って、何度も開かないで済みますよかわいい


ラベル：エクセル 時短 効率化
posted by Ponta at 19:18| Comment(1) | TrackBack(0) | Excel実践 | このブログの読者になる | 更新情報をチェックする

2012年11月28日

カット＆ペーストをより早く！[Excel]

ドラッグ移動_例.gif

カット＆ペーストといえば、ショートカットキーでCtrl＋x　Ctrl＋v　するのが一般的ですが、

もっと早くセルの値を移動させることができますひらめき


上図のように、移動させたいセルを選択し、

そのセルの枠にマウスポインターをもっていき

↓のように、十字矢印になったところでドラッグexclamation
ドラッグ移動_ポインター.gif

移動先までもっていってドロップexclamation
ドラッグ移動_ドラッグ＆ドロップ.gif

これで、簡単に高速移動できますぴかぴか（新しい）


ドロップするときに、Ctrlキーを押しながらすれば、コピペも出来ますひらめき
ドラッグ移動_コピペ.gif


これでまた時間短縮できますねかわいい

ラベル：エクセル 時短 効率化
posted by Ponta at 20:21| Comment(0) | TrackBack(0) | Excel実践 | このブログの読者になる | 更新情報をチェックする
- 1 2 3 4 5.. >>