でも、VBAで探すとITばっかりだなーって悩んでるんです 0057デフォルトの名無しさん (ワッチョイ f901-XNIb)2019/02/12(火) 00:22:18.17ID:6UhGKpIA0 VBAは習得にかかる時間は他の言語覚えるのと同じくらい? それとも簡単? 0058デフォルトの名無しさん (ワッチョイ 25ce-0b7p)2019/02/12(火) 00:40:28.65ID:boZzpQWE0>>57 同じ 0059デフォルトの名無しさん (ドコグロ MMca-/S9r)2019/02/12(火) 00:57:29.86ID:J2uuh0x+M>>57 同じレベルを求めるなら同じ でもVBAは自称「VBAできます(キリッ」のレベルが他言語比で大幅に低いから、 人前で習得したと言っていいレベルに達するまでの時間は他言語よりずっと短い 0060デフォルトの名無しさん (ワッチョイ f901-KbRv)2019/02/12(火) 01:28:22.73ID:bkolxWEM0 for i for j for k for l if cells(i,j)=cells(k,l) then m=m+1 cells(m,1)=cells(k,l) end if next next next next
Function kanacaps(s1) As String For i = 1 To Len(s1) c = Mid(s1, i, 1) If "ァ" <= c And c <= "ッ" Then Select Case c Case "ァ" To "ォ" s = 10 Case "ャ" To "ョ" s = 40 Case Else s = 19 End Select Mid(s1, i) = Ch r(As c(c) + s) End If Next kanacaps = s1 End Function 0142デフォルトの名無しさん (ワッチョイ e7ce-1ffV)2019/02/15(金) 01:38:16.76ID:6R3QhjK00 一部の文字列関数が、なぜか5ちゃんねる全体のNGワードになってるんで、わざとスペースを入れてある 0143136 (ワッチョイ 7f2c-Ioh3)2019/02/15(金) 01:38:19.40ID:BkaZ3+610 Ruby では、
Function kanacaps(s1) As String t = "アイウエオヤユヨツ" For i = 1 To Len(s1) c = Mid(s1, i, 1) If "ァ" <= c And c <= "ッ" Then Mid(s1, i) = Mid(t, A sc(c) - 166, 1) End If Next kanacaps = s1 End Function 0145デフォルトの名無しさん (ワッチョイ e7ce-1ffV)2019/02/15(金) 01:46:51.97ID:6R3QhjK00 しつこいけど、これで最後
Function kanacaps(s1) As String t = Array("ア", "イ", "ウ", "エ", "オ", "ヤ", "ユ", "ヨ", "ツ") For i = 1 To Len(s1) c = Mid(s1, i, 1) If "ァ" <= c And c <= "ッ" Then Mid(s1, i) = t(As c(c) - 167) Next kanacaps = s1 End Function 0146デフォルトの名無しさん (ワッチョイ e7ce-1ffV)2019/02/15(金) 01:53:45.99ID:6R3QhjK00 最後と言いながらもう一度 これってまだまだコンパクトにできるパターンだな
Function kanacaps(s1) As String t = Array("ア", "イ", "ウ", "エ", "オ", "ヤ", "ユ", "ヨ", "ツ") For i = 1 To Len(s1) c = Asc(Mid(s1, i)) If 166 < c And c < 176 Then Mid(s1, i) = t(c - 167) Next kanacaps = s1 End Function 0147デフォルトの名無しさん (ワッチョイ e7ce-1ffV)2019/02/15(金) 02:00:19.18ID:6R3QhjK00 1回しか使わない変数を消した これ以上の短縮は無理かな?
Function kanacaps(s1) As String For i = 1 To Len(s1) c = Asc(Mid(s1, i)) - 167 If 0 <= c And c < 9 Then Mid(s1, i) = Array("ア", "イ", "ウ", "エ", "オ", "ヤ", "ユ", "ヨ", "ツ")(c) Next kanacaps = s1 End Function 0148デフォルトの名無しさん (アメ MM6b-+q6E)2019/02/15(金) 09:21:30.82ID:U9ClSHCYM>>147 横レスだけど 他の言語に比べかったるいけどおいておいて 変換に使う文字列または配列はfunctionの外 変数はアドレス渡し function内で文字列を書き換え 変更が有った場合 true なかった場合false 使い勝手と動作速度を優先する とスマホで書いてみる