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

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

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

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

000335544.jpg

yoru_1.jpg

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



最新版ソフトのダウンロードはこちら。
読書感想.zip
はな時計.zip
はなお手紙聖書.zip

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

箇条書きマクロ

2017–08–18 (Fri) 22:38
箇条書きマクロ 配列版です。
もっと早くなると思いますがとりあえずこの辺で……。

Public kensaku(14) As String
Sub Macro1()
If kensaku(0) = "" Then
kensaku(0) = "・"
kensaku(1) = "●"
kensaku(2) = "○"
kensaku(3) = "◆"
kensaku(4) = "◇"
kensaku(5) = "▼"
kensaku(6) = "▽"
kensaku(7) = "▲"
kensaku(8) = "△"
kensaku(9) = "□"
kensaku(10) = "■"
kensaku(11) = "※"
kensaku(12) = "◎"
kensaku(13) = "☆"
kensaku(14) = "★"
End If
End Sub

Sub 中点指定無し()
Call Macro1
Dim nai As Integer
Dim basyo As Variant
basyo = Selection
Dim RC As Long
RC = UBound(basyo)
Dim Cc As Long
Cc = UBound(basyo, 2)
For i = 1 To RC
For j = 1 To Cc
nai = 0
shiraberu = basyo(i, j)
For t = 0 To 14
If shiraberu = kensaku(t) Then
nai = 0
basyo(i, j) = Replace(basyo(i, j), shiraberu, "○")
Exit For
Else
nai = 1
End If
Next
If nai = 1 Then
basyo(i, j) = "○" & basyo(i, j)
End If
Next
Next
Selection = basyo
End Sub

和暦曜日有り

2017–08–15 (Tue) 21:04
和暦曜日有りの単語登録です。
単語登録一杯作りました。

和暦曜日有り.txt

へ118平成1年1月8日(日)独立語
へ119平成1年1月9日(月)独立語
へ1110平成1年1月10日(火)独立語
へ1111平成1年1月11日(水)独立語
へ1112平成1年1月12日(木)独立語
へ1113平成1年1月13日(金)独立語
へ1114平成1年1月14日(土)独立語
へ1115平成1年1月15日(日)独立語
へ1116平成1年1月16日(月)独立語
へ1117平成1年1月17日(火)独立語
へ1118平成1年1月18日(水)独立語
へ1119平成1年1月19日(木)独立語
へ1120平成1年1月20日(金)独立語
へ1121平成1年1月21日(土)独立語
へ1122平成1年1月22日(日)独立語
へ1123平成1年1月23日(月)独立語
へ1124平成1年1月24日(火)独立語
へ1125平成1年1月25日(水)独立語
へ1126平成1年1月26日(木)独立語
へ1127平成1年1月27日(金)独立語
へ1128平成1年1月28日(土)独立語
へ1129平成1年1月29日(日)独立語
へ1130平成1年1月30日(月)独立語
へ1131平成1年1月31日(火)独立語


次からは趣味の単語登録作ります~。
お金にもなるし!!!

西暦曜日有り-2

2017–08–15 (Tue) 19:42
西暦曜日有り-2
曜日までは必要ないかもしれませんが、作りました。

西暦曜日有り-2.txt

1989181989/1/8(日)独立語
1989191989/1/9(月)独立語
19891101989/1/10(火)独立語
19891111989/1/11(水)独立語
19891121989/1/12(木)独立語
19891131989/1/13(金)独立語
19891141989/1/14(土)独立語
19891151989/1/15(日)独立語
19891161989/1/16(月)独立語
19891171989/1/17(火)独立語
19891181989/1/18(水)独立語
19891191989/1/19(木)独立語
19891201989/1/20(金)独立語
19891211989/1/21(土)独立語
19891221989/1/22(日)独立語
19891231989/1/23(月)独立語
19891241989/1/24(火)独立語
19891251989/1/25(水)独立語
19891261989/1/26(木)独立語
19891271989/1/27(金)独立語
19891281989/1/28(土)独立語
19891291989/1/29(日)独立語
19891301989/1/30(月)独立語
19891311989/1/31(火)独立語

西暦曜日有り-1

2017–08–15 (Tue) 19:21
西暦(曜日有り 略)の一つです。

西暦曜日有り.txt

1989181989年1月8日(日)独立語
1989191989年1月9日(月)独立語
19891101989年1月10日(火)独立語
19891111989年1月11日(水)独立語
19891121989年1月12日(木)独立語
19891131989年1月13日(金)独立語
19891141989年1月14日(土)独立語
19891151989年1月15日(日)独立語
19891161989年1月16日(月)独立語
19891171989年1月17日(火)独立語
19891181989年1月18日(水)独立語
19891191989年1月19日(木)独立語
19891201989年1月20日(金)独立語
19891211989年1月21日(土)独立語
19891221989年1月22日(日)独立語
19891231989年1月23日(月)独立語
19891241989年1月24日(火)独立語
19891251989年1月25日(水)独立語
19891261989年1月26日(木)独立語
19891271989年1月27日(金)独立語
19891281989年1月28日(土)独立語
19891291989年1月29日(日)独立語
19891301989年1月30日(月)独立語
19891311989年1月31日(火)独立語

 | HOME |  次へ »

プロフィール

あゆみ

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

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク