# 保健室利用データ_マクロ実行前 1.xlsm 仕様書

## 概要

- ファイル名: 保健室利用データ_マクロ実行前 1.xlsm
- シート数: 20
- VBAモジュール数: 23
- VBA保護: なし

## シート一覧

1. 保健室利用
2. マスタ情報
3. 月別利用者数集計
4. 保健室月別来室者グラフ
5. 保健室月別来室者グラフ（男女別）
6. 【外科】日別利用者数集計
7. 【内科】日別利用者数集計
8. 【その他】日別利用者数集計
9. 曜日別利用者数集計
10. 個人別利用回数集計
11. 症状別集計（クラス別）
12. 症状別集計（月別）
13. けが別集計（クラス別）
14. けが別集計（月別）
15. 場合別集計（クラス別）
16. 場合別集計（月別）
17. 場所別集計（クラス別）
18. 場所別集計（月別）
19. 部位別集計（クラス別）
20. 部位別集計（月別）

## VBAモジュール

### ThisWorkbook (class)

- 行数: 72
- プロシージャ数: 2

#### プロシージャ一覧

名前 | 種別 | アクセス | 戻り値 | 行数
--- | --- | --- | --- | ---
Workbook_Open | sub | Private | - | 6
Workbook_Activate | sub | Private | - | 11

##### Workbook_Open

- 種別: sub
- アクセス修飾子: Private
- 位置: 行 42 - 47

シグネチャ:

    Private Sub Workbook_Open()

##### Workbook_Activate

- 種別: sub
- アクセス修飾子: Private
- 位置: 行 59 - 69

シグネチャ:

    Private Sub Workbook_Activate()

### Sheet12 (sheet)

- 行数: 10
- プロシージャ数: 0

### Sheet1 (sheet)

- 行数: 10
- プロシージャ数: 0

### Sheet3 (sheet)

- 行数: 10
- プロシージャ数: 0

### Sheet6 (sheet)

- 行数: 10
- プロシージャ数: 0

### Sheet4 (sheet)

- 行数: 10
- プロシージャ数: 0

### Sheet5 (sheet)

- 行数: 10
- プロシージャ数: 0

### Sheet7 (sheet)

- 行数: 10
- プロシージャ数: 0

### Calc (standard)

- 行数: 2842
- プロシージャ数: 9

#### プロシージャ一覧

名前 | 種別 | アクセス | 戻り値 | 行数
--- | --- | --- | --- | ---
CalcCount | sub | Public | - | 1274
MakeTable | sub | Public | - | 866
SetPrintArea | sub | Public | - | 64
DelSheet | sub | Public | - | 53
InitSheet | sub | Public | - | 82
SetArray | sub | Public | - | 84
FindCol | function | Public | Integer | 26
ConvChr | function | Public | String | 31
GraphDataSet_Monthly | sub | Private | - | 103

##### CalcCount

- 種別: sub
- アクセス修飾子: Public
- 位置: 行 46 - 1319

シグネチャ:

    Public Sub CalcCount()

##### MakeTable

- 種別: sub
- アクセス修飾子: Public
- 位置: 行 1490 - 2355

パラメータ:

- `n`: Integer
- `intMax`: Integer

シグネチャ:

    Public Sub MakeTable(n As Integer, intMax As Integer)

##### SetPrintArea

- 種別: sub
- アクセス修飾子: Public
- 位置: 行 2360 - 2423

パラメータ:

- `n`: Integer

シグネチャ:

    Public Sub SetPrintArea(n As Integer)

##### DelSheet

- 種別: sub
- アクセス修飾子: Public
- 位置: 行 2428 - 2480

パラメータ:

- `n`: Integer

シグネチャ:

    Public Sub DelSheet(n As Integer)

##### InitSheet

- 種別: sub
- アクセス修飾子: Public
- 位置: 行 2485 - 2566

シグネチャ:

    Public Sub InitSheet()

##### SetArray

- 種別: sub
- アクセス修飾子: Public
- 位置: 行 2573 - 2656

パラメータ:

- `n`: Integer
- `blnGrdTtl`: Boolean

シグネチャ:

    Public Sub SetArray(n As Integer, blnGrdTtl As Boolean)

##### FindCol

- 種別: function
- アクセス修飾子: Public
- 位置: 行 2662 - 2687
- 戻り値型: Integer

パラメータ:

- `strTitle`: String

シグネチャ:

    Public Function FindCol(strTitle As String) As Integer

##### ConvChr

- 種別: function
- アクセス修飾子: Public
- 位置: 行 2698 - 2728
- 戻り値型: String

パラメータ:

- `n`: Integer

シグネチャ:

    Public Function ConvChr(n As Integer) As String

##### GraphDataSet_Monthly

- 種別: sub
- アクセス修飾子: Private
- 位置: 行 2732 - 2834

シグネチャ:

    Private Sub GraphDataSet_Monthly()

### Sheet11 (sheet)

- 行数: 10
- プロシージャ数: 0

### Sheet8 (sheet)

- 行数: 10
- プロシージャ数: 0

### Sheet23 (sheet)

- 行数: 10
- プロシージャ数: 0

### Sheet18 (sheet)

- 行数: 10
- プロシージャ数: 0

### Sheet17 (sheet)

- 行数: 10
- プロシージャ数: 0

### Sheet19 (sheet)

- 行数: 10
- プロシージャ数: 0

### Sheet20 (sheet)

- 行数: 10
- プロシージャ数: 0

### Sheet13 (sheet)

- 行数: 10
- プロシージャ数: 0

### Sheet14 (sheet)

- 行数: 10
- プロシージャ数: 0

### Sheet15 (sheet)

- 行数: 10
- プロシージャ数: 0

### Sheet16 (sheet)

- 行数: 10
- プロシージャ数: 0

### Sheet2 (sheet)

- 行数: 10
- プロシージャ数: 0

### Sheet9 (sheet)

- 行数: 10
- プロシージャ数: 0

### Common (standard)

- 行数: 232
- プロシージャ数: 11

#### プロシージャ一覧

名前 | 種別 | アクセス | 戻り値 | 行数
--- | --- | --- | --- | ---
xCLng | function | Public | Long | 17
xCInt | function | Public | String | 17
dateToWarekiNendo | function | Public | String | 21
seirekiToWarekiNendo | function | Public | String | 14
seirekiToWarekiNendoOrg | function | Public | String | 14
dateToWarekiNendoGengo | function | Public | String | 21
dateToWarekiGengo | function | Public | String | 8
seirekiToWarekiNendoGengo | function | Public | String | 13
seirekiToWarekiGengo | function | Public | String | 9
dateToWarekiNengappi | function | Public | String | 25
dateToWarekiNengappiOrg | function | Public | String | 25

##### xCLng

- 種別: function
- アクセス修飾子: Public
- 位置: 行 7 - 23
- 戻り値型: Long

パラメータ:

- `var`: Variant

シグネチャ:

    Public Function xCLng(var As Variant) As Long

##### xCInt

- 種別: function
- アクセス修飾子: Public
- 位置: 行 28 - 44
- 戻り値型: String

パラメータ:

- `var`: Variant

シグネチャ:

    Public Function xCInt(var As Variant) As String

##### dateToWarekiNendo

- 種別: function
- アクセス修飾子: Public
- 位置: 行 49 - 69
- 戻り値型: String

パラメータ:

- `Hiduke`: Date

シグネチャ:

    Public Function dateToWarekiNendo(Hiduke As Date) As String

##### seirekiToWarekiNendo

- 種別: function
- アクセス修飾子: Public
- 位置: 行 74 - 87
- 戻り値型: String

パラメータ:

- `seirekiNen`: Integer

シグネチャ:

    Public Function seirekiToWarekiNendo(seirekiNen As Integer) As String

##### seirekiToWarekiNendoOrg

- 種別: function
- アクセス修飾子: Public
- 位置: 行 92 - 105
- 戻り値型: String

パラメータ:

- `seirekiNen`: Integer

シグネチャ:

    Public Function seirekiToWarekiNendoOrg(seirekiNen As Integer) As String

##### dateToWarekiNendoGengo

- 種別: function
- アクセス修飾子: Public
- 位置: 行 110 - 130
- 戻り値型: String

パラメータ:

- `Hiduke`: Date

シグネチャ:

    Public Function dateToWarekiNendoGengo(Hiduke As Date) As String

##### dateToWarekiGengo

- 種別: function
- アクセス修飾子: Public
- 位置: 行 135 - 142
- 戻り値型: String

パラメータ:

- `Hiduke`: Date

シグネチャ:

    Public Function dateToWarekiGengo(Hiduke As Date) As String

##### seirekiToWarekiNendoGengo

- 種別: function
- アクセス修飾子: Public
- 位置: 行 147 - 159
- 戻り値型: String

パラメータ:

- `seirekiNen`: Integer

シグネチャ:

    Public Function seirekiToWarekiNendoGengo(seirekiNen As Integer) As String

##### seirekiToWarekiGengo

- 種別: function
- アクセス修飾子: Public
- 位置: 行 164 - 172
- 戻り値型: String

パラメータ:

- `seirekiNen`: Integer

シグネチャ:

    Public Function seirekiToWarekiGengo(seirekiNen As Integer) As String

##### dateToWarekiNengappi

- 種別: function
- アクセス修飾子: Public
- 位置: 行 178 - 202
- 戻り値型: String

パラメータ:

- `Hiduke`: Date
- `strSplit`: String = "d"

シグネチャ:

    Public Function dateToWarekiNengappi(Hiduke As Date, strSplit As String = "d") As String

##### dateToWarekiNengappiOrg

- 種別: function
- アクセス修飾子: Public
- 位置: 行 208 - 232
- 戻り値型: String

パラメータ:

- `Hiduke`: Date
- `strSplit`: String = "d"

シグネチャ:

    Public Function dateToWarekiNengappiOrg(Hiduke As Date, strSplit As String = "d") As String