エクセル -> VBA

番地の列数値を英字へ変換

Sub main

カラム2〜5(B〜E)の2〜12行目の各合計式及び平均式を代入する

Sub main()
  For nCol = 2 to 5
    列英字 = 番地英字変換(nCol)
    cells(nRow + 1,nCol) = "=SUM(" & 列英字 & 2 & ":" & 列英字 & ":" & 14 & ")"
    cells(nRow + 1,nCol) = "=AVERAGE(" & 列英字 & 2 & ":" & 列英字 & ":" & 15 & ")"
  Next nCol
End Sub
Function 番地英字変換
Function 番地英字変換(列 As Integer) As String
   Dim iAlpha As Integer
   Dim iRemainder As Integer

   iAlpha = Int((列 - 1) / 26)
   iRemainder = 列 - (iAlpha * 26)
   If iAlpha > 0 Then
      番地英字変換 = Chr(iAlpha + 64)
   End If
   If iRemainder > 0 Then
      番地英字変換 = 番地英字変換 & Chr(iRemainder + 64)
   End If
End Function
セルの数式
セルの値には以下のように式が代入される
セル(B14) =SUM(B2:B13)
セル(C14) =SUM(C2:C13)
セル(D14) =SUM(D2:D13)
セル(E14) =SUM(E2:E13)

セル(B15) =AVERAGE(B2:B13)
セル(C15) =AVERAGE(C2:C13)
セル(D15) =AVERAGE(D2:D13)
セル(E15) =AVERAGE(E2:E13)



      Document-Folder          一覧
HP-UX
HULFT
JAVA
JP1
JavaScript
Linux
MAC
PHP
Perl
Python
Ruby
SOA
Solaris
Unix全般
Windows
XML
エクセル
スタイルシート
セキュリティー
データベース
ネットワーク
パソコン
ブラウザ
プログラム構文
仮想化
          RSS-Folder
ニュース
   アットマーク・アイティ(@IT)
   シンクイット(ThinkIT)
   インターネットコム
   インターネットウォッチ
   日経IT-Pro
   日経パソコン
   CNET Japan
   ZD-NetJapan
   MYCOM
   RBB-Today
ベンダー
   日本IBM
   日本HP
   サンマイクロシステムズ
   NEC
   富士通
   日立
ソフトウェア
   マイクロソフト
   トレンドマイクロ
   オラクル
   サイボウズ
   Mozilla
   野村総合研究所
   (その他ソフトウェア企業)
更新履歴 一覧
 07/08 PERF
プログラム構文
 07/07 PERF
プログラム構文
 06/25 オブジェクトプログラミング2
Perl>サンプル
 07/12 クローン作成
仮想化>vCenter
 07/12 vyatta設定
ネットワーク>vyatta
 07/12 vyattaインストール
ネットワーク>vyatta
 07/12 リポジトリサーバ
Linux>サーバ構築
 07/05 VMwareのインストール
仮想化>VMware
 07/05 PXEブート
仮想化>KVM
 07/01 DHCPでのPXEブート
仮想化>KVM
 06/27 qcow2仮想DISK作成
仮想化>KVM
 06/13 NWの設定
仮想化>VMwareEsxi
 06/13 IPアドレスの変更
仮想化>VMwareEsxi
 06/12 自動ssh
Unix全般>シェル>Bash
 06/12 diffプログラミング
Python
Google