今まで使っていた物に100均で買ったノリを入れ替えました。
100均のものは少し使い勝手がよくないのです。
ノリが出すぎていつも困ってました。
これで気が楽になりました。
今まで使っていた物に100均で買ったノリを入れ替えました。
100均のものは少し使い勝手がよくないのです。
ノリが出すぎていつも困ってました。
これで気が楽になりました。
100均のステンレスたわしできれいに水垢がとれました。
いままでカビ取り剤で歯ブラシなどいろいろ試してました。
ステンレスたわし軽くとれます。
お風呂の浴槽まわり。
洗面器。
扉まわり。
など
鏡まで大丈夫!!でした。
1.変数の文字を検索する関数【instr】です。
n = InStr(1, work_s1, work_s2)
InStr ( 開始位置 , 変数 , 検索する文字)
Do While n > 0
cnt = cnt + 1
n = InStr(n + 1, work_s1, work_s2)
Loop
ソースは以下です。
------------------------------------------------------------------------------
dim work_s1 as string
dim work_s2 as string
work_s1 = "AAA:BBB:CCC"
work_s2 = ":"
cnt = 0
n = InStr(1, work_s1, work_s2)
Do While n > 0
cnt = cnt + 1 '検索した件数
n = InStr(n + 1, work_s1, work_s2)
Loop
------------------------------------------------------------------------------
2.文字で分割する関数【split】です。
sp_s = Split(work_s, ":")
Split( 変数 ,分割する文字)
ソースは以下です。
------------------------------------------------------------------------------
Dim sp_s As Variant
dim work_s as string
dim s1 as string
dim s2 as string
sp_s = Split(work_s, ":")
s1 = sp_s(0)
s2 = sp_s(1)
------------------------------------------------------------------------------
結構使いますので記録しておきます。
ボタンの文字を変更する場合。
ソースは以下です。
------------------------------------------------------------------------------
ActiveSheet.CMD1.Caption = "A1"
ActiveSheet.cmd2.Caption = "B1"
------------------------------------------------------------------------------
わかってしまえばなんてことないのですが、少し悩みました。ので記録しておきます。