管理者とリクエストについて

2037–04–30 (Thu) 09:58
管理者は中小企業事務員です。
入社時より、主に入構書類を担当し、苦労が多かったためこのサイトを立ち上げました。
どなたでも無料で安全に使用することが出来ます。

システム作成リクエストも承っております。
(本業の仕事量により、断る場合もございます)

導入頂いた企業様、有りましたらご一報くださると幸いです。

000335544.jpg

yoru_1.jpg

なにとぞよろしくお願い致します。



最新版ソフトのダウンロードはこちら。
読書感想.zip

趣味全開ブログはこちら
スポンサーサイト

タイムスタンプ作成アプリ

2017–06–28 (Wed) 22:15
タイムスタンプ

作業開始時間、作業終了時間から作業時間を計算してくれます。
1.作業開始時にまず、「時間を登録」をクリックします。
2.作業終了時に、「時間を登録」をクリックします。
3.時間計算をクリックすると計算がされます。


無題

自宅での作業中にいつも使用しています。

読書感想入力ソフトを作りました。

2017–06–25 (Sun) 23:02
読書感想.zip

sample-1.png

EXCELを持っていない人のために、ソフトを作成しました。
私のOpenOfficeでも使えないのです……。

2017/6/25
1「2」
分類
小説
点数
3
感想1234567890


こんなタグも作ってくれます。

三ヶ月計算

2017–06–22 (Thu) 23:15
三ヶ月計算.xlsx

三ヶ月計算は本当に難しくて、私自身何度も何度も間違えてしまうような式です……。
実際、これも間違っているかもしれません(笑)
ようやっと開発者にあがれたのですが、やっぱりこう言うのは苦手みたいです;;;

3ヶ月サンプル

やっぱり開発者として生きていく私が一番いいみたいです……。
休む時間があまりないのが気になるのですが、あまり気にしてはいけないのかな?

枠線マクロ

2017–05–28 (Sun) 14:25
今回は「枠線マクロ」を紹介します。

Sub 枠の表示()
With CommandBars("Worksheet Menu Bar").Controls("枠の表示")
waku = .list(.ListIndex)
End With

If waku = "格子" Then
Selection.Borders.LineStyle = xlContinuous
End If

If waku = "外枠" Then
Selection.BorderAround Weight:=xlMedium
End If

If waku = "普通外枠・細中枠" Then
Selection.Borders().Weight = xlHairline
Selection.BorderAround Weight:=xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeLeft).Weight = xlThin
End If

If waku = "上線" Then
Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
End If

If waku = "下線" Then
Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
End If

If waku = "左線" Then
Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
End If

If waku = "右線" Then
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
End If

If waku = "縦中線" Then
Selection.Borders(xlInsideVertical).LineStyle = xlContinuous
End If

If waku = "横中線" Then
Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous
End If

If waku = "枠無し" Then
Selection.Borders.LineStyle = False
End If

End Sub

※ 細中枠以外は全て「罫線」をクリックした際の太さになっています。
このマクロは、アドインを使って、リボン(Excel2010以降対応している?)に表示されるマクロとなります。

このマクロと併せて使用します。

201703031138426a0.png

このマクロはコンボボックスが登場します。

Sub コンボボックス作成()
Dim myWsMenu As CommandBar, myCombo As CommandBarComboBox
Set myWsMenu = Application.CommandBars("Worksheet Menu Bar")
Set myCombo = myWsMenu.Controls.Add _
(Type:=msoControlComboBox, Temporary:=True)

Dim waku As CommandBarComboBox
Set waku = myWsMenu.Controls.Add _
(Type:=msoControlComboBox, Temporary:=True)
waku.Caption = "枠の表示"
waku.AddItem "格子"
waku.AddItem "外枠"
waku.AddItem "普通外枠・細中枠"
waku.AddItem "上線"
waku.AddItem "下線"
waku.AddItem "左線"
waku.AddItem "右線"
waku.AddItem "縦中線"
waku.AddItem "横中線"
waku.AddItem "枠無し"
waku.Style = msoComboLabel
waku.OnAction = "枠の表示"
End Sub

Sub 枠の指定
Selection.Borders.LineStyle = xlContinuous
Selection.Borders.LineStyle = xlContinuous
End Sub

Selection.Borders.LineStyle を変更すれば、太さなども簡単に変更できます!

201703031138428a8.png

20170303113844850.png

201703031138451f8.png

それではまたb

 | HOME | 

プロフィール

あゆみ

Author:あゆみ
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク