プログラミングが恋しくて・・・

あはは。ahaha@wankuma.com — Tue, 15 Apr 2008 00:27:00 GMT

この一年の間に、実質２ヶ月(３ヶ月?)くらいしか仕事上でプログラミングをすることが出来ずにちょっと欲求不満。

んな割にはお客さん先の業務分析とかデータの調査とか設計とか仕様の打ち合わせとかetc・・・

ってのに駆けずり回っていてどうにも家での自主勉強も取る気になれないくらいに疲れてしまっていたりするんですよね。

近くの席に座っている個人事業主の人は「プログラミングが専門だから」という一言と共に

黙々と作ってたり調べ物したりして勉強をしているのを横目に良いなぁなんていってます。

(いや、それはそれでとっても大事なのはわかりますけど)

あぁ・・・

とまぁ愚痴を言ってても仕方ない。今できることをこつこつと楽に出来るような仕掛けを作っていって、

少しでもプログラミングをする時間を捻出しないとね。

ってなわけで、最近excelと戯れる日々が続いているのでこんなものを自作して楽してます。

excelのVBAマクロで記述して、ショートカットキーで呼び出せるようにしておくと色々便利♪

しかし・・・Excel上で擬似コードを書くことを求められてもなぁ・・・それよりは実際に作ってしまうほうが

楽なんだけどなぁ？

・作ったもの
Excelで選択セルに対して
　１　結合/非結合を切り替える
　2　フォントの色を変える
　3　背景色を変える
　4　セル内の配置を変える　（× ２）

Public Sub mergeCells()
' 選択セルの結合・非結合の変更
If Selection.mergeCells = True Then
　Selection.mergeCells = False
Else
　Selection.mergeCells = True
End If

End Sub

Public Sub changeFontColor()
' 選択セルの色を変える
' 色はF2で表示されるオブジェクトブラウザで
' 定義されている色定数ColorConstantsに対応
' これ以上やる場合はColorIndexを使う
If Selection.Font.Color = vbRed Then
　Selection.Font.Color = vbBlack
ElseIf Selection.Font.Color = vbBlack Then
　Selection.Font.Color = vbBlue
ElseIf Selection.Font.Color = vbBlue Then
　'Selection.Font.Color = vbCyan
'ElseIf Selection.Font.Color = vbCyan Then
'Selection.Font.Color = vbGreen
' ElseIf Selection.Font.Color = vbGreen Then
'Selection.Font.Color = vbMagenta
' ElseIf Selection.Font.Color = vbMagenta Then
'Selection.Font.Color = vbYellow
' ElseIf Selection.Font.Color = vbYellow Then
Selection.Font.Color = vbRed
Else
　Selection.Font.Color = vbBlack
End If
End Sub

Public Sub changeInteriorColor()
' 選択セルの背景色を変える
' 色はF2で表示されるオブジェクトブラウザで
' 定義されている色定数ColorConstantsに対応
' これ以上やる場合はColorIndexを使う
If Selection.Interior.Color = vbRed Then
Selection.Interior.Color = vbBlack
ElseIf Selection.Interior.Color = vbBlack Then
Selection.Interior.Color = vbBlue
ElseIf Selection.Interior.Color = vbBlue Then
' Selection.interior.Color = vbCyan
' ElseIf Selection.interior.Color = vbCyan Then
' Selection.interior.Color = vbGreen
' ElseIf Selection.interior.Color = vbGreen Then
' Selection.interior.Color = vbMagenta
' ElseIf Selection.interior.Color = vbMagenta Then
Selection.Interior.Color = vbYellow
ElseIf Selection.Interior.Color = vbYellow Then
Selection.Interior.Color = vbRed
Else
Selection.Interior.Color = vbBlack
End If

End Sub

Public Sub changeHorizontalAlignment()
'セル内での配置を調整
With Selection
  If .HorizontalAlignment = xlCenter Then
.HorizontalAlignment = xlRight
  ElseIf .HorizontalAlignment = xlRight Then
.HorizontalAlignment = xlLeft
  ElseIf .HorizontalAlignment = xlLeft Then
.HorizontalAlignment = xlCenter
  End If
End With
End Sub

Public Sub changeVerticalAlignment()
'セル内での配置を調整
With Selection
If .VerticalAlignment = xlBottom Then
      .VerticalAlignment = xlTop
ElseIf .VerticalAlignment = xlTop Then
      .VerticalAlignment = xlCenter
ElseIf .VerticalAlignment = xlCenter Then
     .VerticalAlignment = xlBottom
End If

End With
End Sub

しかし、あれだ。クラサバでの開発と、運用保守にひたすら

関わってきただけあって、WebのHTMLとかCSSとか全然わかってねーや

これから勉強していきたいなぁ時間つくろっとー♪