常連

質問力

###前提・実現したいこと

sharepoint SPQueryを用いて、サイトのライブラリ内にあるアイテム全てを検索し、条件に合うアイテムを取得したい。
###発生している問題・エラーメッセージ

検索条件として、SPListのitemsのxml内のキーワードを指定しているが、ライブラリ内の一番上の階層しか検索できておらず、その配下に存在するアイテムを検索出来ていなかった。

###試したこと
SPQueryのFolderのRootFolder SubFoldersを使用したが、各サイトのライブラリ内の検索したいアイテムの階層が違う為、うまく取得できていない。
###補足情報(言語/FW/ツール等のバージョンなど)
より詳細な情報
C# sharepoint2013 visualstudio2013

★SPListItemを使用してみたが、レスポンスに問題があった為、SPQueryを使用。
他に方法等ありましたらご教授願います。

【Sharepoint】ライブラリ内の特定のアイテムを検索する方法についてのご質問

vbaでの継承について、質問をさせて頂きます。
javaのようにスーパークラスにメンバ変数を設定し、それのアクセスをしたいのですが毎回インターフェースを設定する必要があるのでしょうか？

###理想
```vba
'スーパークラス：absClass.cls
Option Explicit

'プロパティ
Private WS As Worksheet
Private wsName As String
Private startCol As Integer
Private startRow As Integer

Public Sub calc()
End Sub
```

```vba
'サブクラス：centerToMonth.cls
Option Explicit
Implements absClass

Private Sub Class_Initialize()
    '初期値宣言
    wsName = "営業所別_月間"
    startCol = 3
    startRow = 6
    Set WS = ActiveWorkbook.Worksheets(wsName)
End Sub

Private Sub absClass_calc()
    '計算処理
End Sub

Private sub hoge()
End Sub
```


###現実？
```vba

'スーパークラス：absClass.cls
Option Explicit

'プロパティ
'Public WS As Worksheet
'Public wsName As String
'Public startCol As Integer
'Public startRow As Integer
'Public colLen As Integer

'' プロパティのインターフェイスを用意する。
Public Property Get WS() As Worksheet
End Property
Public Property Get wsName() As String
End Property
Public Property Get startCol() As Integer
End Property
Public Property Get startRow() As Integer
End Property

Public Sub calc()
End Sub

```

```vba
'サブクラス：centerToMonth.cls

Option Explicit
Implements absClass

'プロパティ
'【質問点】何故サブクラスで宣言するのでしょうか？
Private WS As Worksheet
Private wsName As String
Private startCol As Integer
Private startRow As Integer

'メンバー設定
Public Property Get absClass_WS() As Worksheet
    Set absClass_WS = WS
End Property
Private Property Get absClass_wsName() As String
    'absClass_wsName = wsName
    absClass_wsName = "営業所別_月間"
End Property
Private Property Get absClass_startCol() As Integer
    absClass_startCol = startCol
End Property
Private Property Get absClass_startRow() As Integer
    absClass_startRow = startRow
End Property


Private Sub Class_Initialize()
    '【質問点】定数を設定する場合はInitializeでするのが一般的でしょうか？
    '         それともgetterでするのがよいのでしょうか？
    '初期値宣言
    wsName = "営業所別_月間"
    startCol = 3
    startRow = 6
    Set WS = ActiveWorkbook.Worksheets(wsName)
End Sub

Private Sub absClass_calc()
    '計算処理
End Sub

Private sub hoge()
End Sub
```
http://teratail.com/questions/88452[前回の質問の続きです。]


---
【質問点まとめ】
0. メンバ変数の宣言は何故サブクラスで行うのでしょうか？
0. メンバ変数を宣言するのに、毎回インターフェース(setter, getter)を設定する必要があるのでしょうか？

また、よろしければ皆さんならばこうしているという例文などをいただけると非常に助かります。

オブジェクト指向も学習中で突飛な質問かもしれませんがよろしくお願い致します。

---
###【（追記）やりたいこと】
###スーパークラス
0. 単月系シート処理用
0. 年間系シート処理用

###サブクラス
0. 事業所一覧_月間シート処理（単月系シート処理用を継承）
0. 事業所別営業一覧_月間シート処理（単月系シート処理用を継承）
0. 営業別得意先一覧_月間シート処理（単月系シート処理用を継承）
0. 営業別外注一覧_月間シート処理（単月系シート処理用を継承）
0. 事業所一覧_年間シート処理（年間系シート処理用を継承）
0. 事業所別営業一覧_年間シート処理（年間系シート処理用を継承）
0. 営業別得意先一覧_年間シート処理（年間系シート処理用を継承）
0. 営業別外注一覧_年間シート処理（年間系シート処理用を継承）

vbaでのクラス継承時の定数について

### いまやっている自己流のVBAのつかいかた

処理用のExcelブックを用意してVBAを標準モジュールにいれておきます。

シートA：システムからダウンロードしてきたCSV型式ファイルを、項目名行は１９行目、データは２０行目からVBAをつかって貼付する
シートB：シートAを参照する関数を３行目にいれておく。VBAを使って、このシートの３行目の式を、データ開始の２０行目から「シートAの最終行数」までコピーして、値貼付を実行する。シートAの数値を変換、集計等した結果がこのシートにできる。

シートC:シートBと同じように、参照する関数を３行目にいれて、同じようにVBAを使って最終行までコピーして、値貼り付けを実行・・・vlookup,index,match・・・を使って表引、sumifで集計、ピボットテーブルで重複削除などしてアウトプットのデータ型式にちかづける

シートD：要求されるフォーマットの型式にして、このシートを別ファイルに保存してアウトプットとする

### お尋ねしたいこと

こんな自己流のやり方で、事務処理をやっています。
ただコピーして、値貼付するだけのVBAです。集計や最終アウトプットにも困ることはなくなりました。
ホントのVBAプログラムにくらべれば、たぶんスピードもおそいし、スマートでもないとおもいます。

これからもうちょっとスキルアップしていきたいとおもいますが、どんな勉強をしていったらいいのか、アドバイスいただけませんか？
オンライン型式のVBA講座を受講したりしてみましたが、自己流のほうが簡単に目的達成できてしまうので、もうひとつモチベーションがあがりません。

### 補足情報

書いていて、どんなアドバイスを望んでいるのか、自分自身につっこみをいれたくなりました。もっと自分自身進歩できるのではという思いがあります。ただの事務職で、若くはないので、すごい進歩は無理でしょうが・・・

自己流VBAの良し悪しについて

###前提・実現したいこと
現在、業務で使用するツールをVBAにより作成しております。
しかし、処理速度やUIの関係上別の言語にてツールを作成することを検討しております。
そこで、オススメの言語があったら教えてください。
【作成ツール概要】
・小規模開発
・テキストデータ取得
・タイムテーブル作成
・タイムテーブル内編集
・動的UI
以上のような内容でオススメ言語をお願い致します。
###発生している問題・エラーメッセージ

```
エラーメッセージ
```

###該当のソースコード
```ここに言語を入力
ここにご自身が実行したソースコードを書いてください
```

###試したこと
私なりの検討では、RubyかJavaScriptが候補に挙がっております。
どちらも詳しくはありませんが、開発規模、エクセル処理、動的UI等を考慮するとこの2つは有力かと思った次第です。


###補足情報(言語/FW/ツール等のバージョンなど)
より詳細な情報

VBAに代わるより良い業務ツール開発言語でオススメがあったら教えてください

### 前提・実現したいこと

CommandBarsコレクションで、メニューのIndexを調べようとしています。

### 発生している問題・エラーメッセージ

メニューが下記コードで一覧表示させても、文字化けしています。
```VBA
Sub sample5()
    Dim obj
    For Each obj In CommandBars("Cell").Controls
        Debug.Print obj.Caption
    Next
End Sub
```

### 該当のソースコード

```VBA
Sub test()
    MsgBox CommandBars("cell").Controls("コピー??(&C)").Index
End Sub
```
controls()内の文字がメニューと異なるため、エラーが発生します。
どうして、コンテキストメニューが文字化けしてしまうのでしょうか。

verのせいなのか分からないので、どなたか教えていただけますと幸いです。
### 試したこと

ここに問題に対して試したことを記載してください。

### 補足情報（FW/ツールのバージョンなど）

Excel 2016
バージョンアップ前にVBAのStandard資格を受験予定です。（なので、Excelは少し古いVerをもとに作成されています。Excel 2007とかかな？）

【VBA】コンテキストメニューのCopyの日本語メニュー名が文字化けしています。どうしてでしょうか。

エクセルのvbaで1つのCSVデータを基に、「営業所別」「営業別」、「得意先別」,etc
の帳票を出力する処理を組もうかと考えています。
この案件にあたり、今までのmoduleのみの手続き型での実装から、オブジェクト指向での
プログラムをやってみようと思い立ちました。

いくつかサイトを参考にして作ろうとしているのですが、クラスの生成から
つまずいてしまっています。
クラスにworksheetオブジェクトを持たせたいのですが、下記のエラーが出ます。
 「コンパイルエラー：
  オブジェクトモジュールにはインターフェース'WS'用の'absClass'が必要です」

string型などでは上手くいったので、オブジェクトを持たせる場合に何か方法があるのかと思いますが、ググっても上手く出てきませんでした。
最悪、シート名だけ持たせてmodule側で処理してもいいのですが、他に便利な方法があれば試してみたいです。


``` vba
'スーパークラス：absClass.cls

Option Explicit

'プロパティ
Public WS As Worksheet

Public Sub msgName(vdata As Worksheet)
End Sub
```

```vba
'サブクラス：centerToMonth.cls

Option Explicit
'---コンパイルエラー：
'---オブジェクトモジュールにはインターフェース'WS'用の'absClass'が必要です。
Implements absClass

'プロパティ
Private WS As Worksheet

Private Property Get absClass_WS() As WorkSheet
    absClass_WS = WS
End Property
Private Property Let absClass_WS(ByVal RHS As WorkSheet)
    WS = RHS
End Property

Private Sub absClass_msgName(vdata As Worksheet)
    Debug.Print vdata.name
End Sub
```

```vba
'module.bas

Sub test()
    Dim objabs As absClass
    Dim objcon As centerToMonth
    
    Set objcon = New centerToMonth
    Set objabs = objcon

    With objabs
        MsgBox .WS
        
        'MsgBox ActiveWorkbook.Worksheets("営業所別売上修正一覧表（月間）").name
        .WS = ActiveWorkbook.Worksheets("営業所別売上修正一覧表（月間）")
        .msgName
    End With
End Sub
```

参考：https://sites.google.com/site/compositiosystemae/home/vbaworld/upper/interface

以上、ご教授いただければと思います。
よろしくお願い致します。

vbaでのオブジェクト指向について

### __後で使いまわしやすい プロシージャ の書き方__
[過去の質問](https://teratail.com/questions/136468)で教えて頂いた情報を基にクリップボードを使わないで
コピペのコードを書いてみたのですが...
また 脳内選択肢が多すぎで困ってます。

とりあえず書いたコードを載せます。
```VBA
Option Explicit
Option Private Module

  'Paste情報と縦横サイズ
  Private XML As String
  Private RowSize As Long
  Private ColumnSize As Long


Sub MyCopy(ByVal CopyRng As Range, Optional ByVal PasteRng As Range)
'セルの 大体の書式と 値を Copy

  Dim VType As XlRangeValueDataType
  
    VType = xlRangeValueXMLSpreadsheet

    'Copy
    RowSize = CopyRng.Rows.Count
    ColumnSize = CopyRng.Columns.Count
    XML = CopyRng.Value(VType)
    
    'Paste
    If Not PasteRng Is Nothing Then
        PasteRng.Resize(RowSize, ColumnSize).Value(VType) = XML
    End If
End Sub


Sub MyPaste(ByRef PasteRng As Range, Optional ByVal CopyRng As Range)
'セルの 大体の書式と 値を Paste

  Dim VType As XlRangeValueDataType
  
    VType = xlRangeValueXMLSpreadsheet
    
    'Copy
    If Not CopyRng Is Nothing Then
        RowSize = CopyRng.Rows.Count
        ColumnSize = CopyRng.Columns.Count
        XML = CopyRng.Value(VType)
    End If
    
    'Paste
    PasteRng.Resize(RowSize, ColumnSize).Value(VType) = XML
End Sub
```


### 悩んでいる内容
```VBA
  Dim VType As XlRangeValueDataType
    VType = xlRangeValueXMLSpreadsheet
```
まず、これはValueの引数がそのままだと候補が出てこなかったので
候補が出てくるように入れたのですが
なんとコメントを入れたらいいのか...
そもそもこういうことをしてもいいのかが分かりません。

次にコマンドの機能自体ですがコピーコマンドといえば
コピー元とコピー先を指定したらコピーできるのが基本だと
思ったので、ペーストの機能も含んだ内容で作りました。
そのあとに連続貼付けの為にペーストコマンドを作ったのですが
対になった方がいいかなと思いコピーの機能を含みにしました。
当然ですがその結果はほぼおんなじコードになるわけなのですが
こういう場合はコピーとペーストは完全に分けたほうがいいのでしょうか
いっそのことCopyPasteとしてくっつけてしまった方がいいのでしょうか


他にも何かあれば指摘して頂きたいです。
よろしくお願い致します。


### 蛇足 ~見やすいコードが書きたい~
最近 作る内容が複雑になってきて過去に作ったコードを再利用出来る様に
したいと思い始めました。
現状　コードがぐちゃぐちゃで探すよりも書き直した方が早いという感じで
再利用が出来ません。
書籍を買って読んだりしていますが
知識が増える度に選択肢の多さに迷い
手が止まります。
最終目標は判断基準の確立と
コードの使いまわしが出来るようにすることです。
宜しくお願い致します。


###ベストアンサー選択後の追記
いろいろ意見を頂き
ホントにコピーとペーストそれぞれ必要なのか
再度考えてみました、
ペーストは同じ内容を連続で貼付けするために
足したのですが、今回は今のところ必要なさそうなので
やめることにしました。
それに伴い値の保持の必要もなくなったので
変数はプロシージャ内へ移動、
また、PasteRngは必ず指定しなければいけなくなるので
Optional をやめ Pasteの実行判断のIfもやめました。
クラスにする必要性も低くなったと思うので標準モジュールのままで
```VBA
Option Explicit
Option Private Module


Sub MyCopy(ByVal CopyRng As Range, ByVal PasteRng As Range)
'セルの 大体の書式と 値を Copy

  Dim XML As String
  Dim RowSize As Long
  Dim ColumnSize As Long
  Const ValueDataType = Excel.XlRangeValueDataType.xlRangeValueXMLSpreadsheet
  
    'Copy
    RowSize = CopyRng.Rows.Count
    ColumnSize = CopyRng.Columns.Count
    XML = CopyRng.Value(ValueDataType)
    
    'Paste
    PasteRng.Resize(RowSize, ColumnSize).Value(ValueDataType) = XML
End Sub
```
回答してくださった方ありがとうございました。
また、次も宜しくお願い致します。

後で使いまわしやすい プロシージャ の書き方

アドインファイル（マクロ付きエクセル）を添付メールのようにして送付したいのですが

gmailではマクロが削除されてしまう
dropbpxでもマクロが削除されてしまう
ギガファイル便でもマクロが削除されてしまう

という現象が発生しています。
ちなみにzipにしても同様にマクロはなくなってしまいまようです。

googlechrome と　edgeで確認しました。