エクセラのEXCEL
表計算ソフトEXCELでゲーム等を作っています。ゲーム等の作成状況を紹介。
スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
無駄なことをやっていた

標準で装備されている関数を何度か作ったことがある。
これ以外でも、まだ気が付かずに無駄なことをたくさんやっているんだろうな~


1.文字の色
 VBAの場合
  Function color(a As Range) As Long
    color = a.Font.ColorIndex
  End Function


 VBAを使わない方法
  挿入-名前-定義
  名前:色
  参照範囲:=GET.CELL(24,A1)


2.ファイル名の表示
 VBAの場合
  Function filename()
     filename = ActiveWorkbook.Name
  End Function


 VBAを使わない場合1
  =REPLACE(LEFT(CELL("filename"),FIND("]",CELL("filename"))-1),1,FIND("[",CELL("filename")),)


 VBAを使わない場合2
  名前定義
  名前:ファイル名
  参照範囲:=GET.DOCUMENT(88)



3.Find関数があるのにわざわざinstr関数を作ってしまった
 VBAの場合
  Function instr(a As Range, b As String)
     instr = InStr(a.Value, b)
   End Function
 
 VBAを使わない場合  
  FIND関数


4.replace関数があるのにわざわざ同じものをつくってしまった
 無駄な例
  Function replace(a As String, b As String, c As String)
     Dim e As Variant
     e = Split(a, b)
     replace = Join(e, c)
  End Function


 Sub test()
    MsgBox replace("abcdefg", "cde", "")
 End Sub


 実はこれでだけでいい
  Sub test2()
   MsgBox Replace("abcdefg", "cde", "zzz")
  End Sub


 

スポンサーサイト

テーマ:プログラミング - ジャンル:コンピュータ

コメント
この記事へのコメント
コメントを投稿する
URL:
Comment:
Pass:
秘密: 管理者にだけ表示を許可する
 
トラックバック
この記事のトラックバックURL
この記事へのトラックバック
copyright © 2005 エクセラのEXCEL all rights reserved.
Powered by FC2ブログ.
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。