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実践 | このブログの読者になる | 更新情報をチェックする
×

この広告は180日以上新しい記事の投稿がないブログに表示されております。