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

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

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

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

000335544.jpg

yoru_1.jpg

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



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

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

ハイフン前・ハイフン後の文字列を抽出する

2017–10–16 (Mon) 00:06
Function hyphenmae(文字列 As Variant)
Dim mojiretsu As String
mojiretsu = 文字列
If InStr(mojiretsu, "-") <> 0 Then
hyphenmae = Left(mojiretsu, InStr(mojiretsu, "-") - 1)
End If
If InStr(mojiretsu, "-") <> 0 Then
hyphenmae = Left(mojiretsu, InStr(mojiretsu, "-") - 1)
End If
If mojiretsu = "" Thenaw
hyphenmae = ""
End If
End Function

Function hyphenato(文字列 As Variant)
Dim mojiretsu As String
mojiretsu = 文字列
If InStr(mojiretsu, "-") <> 0 Then
hyphenato = Mid(mojiretsu, InStr(mojiretsu, "-") + 1)
End If
If InStr(mojiretsu, "-") <> 0 Then
hyphenato = Mid(mojiretsu, InStr(mojiretsu, "-") + 1)
End If
If mojiretsu = "" Then
hyphenato = ""
End If
End Function

a_201710152340298af.png

ハイフン前・ハイフン後の文字列を抽出する

2017–10–15 (Sun) 19:18
Function hyphenmae(文字列 As Variant)
Dim mojiretsu As String
mojiretsu = 文字列
If InStr(mojiretsu, "-") <> 0 Then
hyphenmae = Left(mojiretsu, InStr(mojiretsu, "-") - 1)
End If
If InStr(mojiretsu, "-") <> 0 Then
hyphenmae = Left(mojiretsu, InStr(mojiretsu, "-") - 1)
End If
If mojiretsu = "" Thenaw
hyphenmae = ""
End If
End Function

Function hyphenato(文字列 As Variant)
Dim mojiretsu As String
mojiretsu = 文字列
If InStr(mojiretsu, "-") <> 0 Then
hyphenato = Mid(mojiretsu, InStr(mojiretsu, "-") + 1)
End If
If InStr(mojiretsu, "-") <> 0 Then
hyphenato = Mid(mojiretsu, InStr(mojiretsu, "-") + 1)
End If
If mojiretsu = "" Then
hyphenato = ""
End If
End Function
a_201710151918021c8.png

カタカナ⇔ひらがな相互変換

2017–10–15 (Sun) 12:56
Function hiragana(文字列 As Variant)
Dim mojiretsu As String
mojiretsu = 文字列
hiragana = StrConv(mojiretsu, vbHiragana)
End Function

Function katakana(文字列 As Variant)
Dim mojiretsu As String
mojiretsu = 文字列
katakana = StrConv(mojiretsu, vbKatakana)
End Function

a.png

括弧内・括弧前・括弧後を取得

2017–10–09 (Mon) 14:23
()内・前外・後外の文字列を抽出します。

無題


Function kakkonai(文字列 As Variant)
Dim mojiretsu As String
If VarType(文字列) = vbString Then
mojiretsu = 文字列
Else
mojiretsu = 文字列.Value
End If
If InStr(mojiretsu, "(") <> 0 Then
mojiretsu = Mid(mojiretsu, InStr(mojiretsu, "(") + 1)
End If
If InStr(mojiretsu, ")") <> 0 Then
mojiretsu = Left(mojiretsu, InStr(mojiretsu, ")") - 1)
End If
If InStr(mojiretsu, "(") <> 0 Then
mojiretsu = Mid(mojiretsu, InStr(mojiretsu, "(") + 1)
End If
If InStr(mojiretsu, ")") <> 0 Then
mojiretsu = Left(mojiretsu, InStr(mojiretsu, ")") - 1)
End If
kakkonai = mojiretsu
End Function
Function kakkosoto(文字列 As Variant)
Dim mojiretsu As String
If VarType(文字列) = vbString Then
mojiretsu = 文字列
Else
mojiretsu = 文字列.Value
End If
If InStr(mojiretsu, "(") <> 0 Then
mojiretsu = Left(mojiretsu, InStr(mojiretsu, "(") - 1)
End If
If InStr(mojiretsu, "(") <> 0 Then
mojiretsu = Left(mojiretsu, InStr(mojiretsu, "(") - 1)
End If

kakkosoto = mojiretsu
End Function

Function kakkoato(文字列 As Variant)
Dim mojiretsu As String
If VarType(文字列) = vbString Then
mojiretsu = 文字列
Else
mojiretsu = 文字列.Value
End If
If InStr(mojiretsu, "(") <> 0 Then
mojiretsu = Mid(mojiretsu, InStr(mojiretsu, ")") + 1)
End If
If InStr(mojiretsu, "(") <> 0 Then
mojiretsu = Mid(mojiretsu, InStr(mojiretsu, ")") + 1)
End If

kakkoato = mojiretsu
End Function

 | HOME |  次へ »

プロフィール

あゆみ

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

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク