Public Type FileInfo
    fileName As String
    shtName As String
    beginRow As Long
    endColumn As Long
End Type

Public Function SetType( ByRef info1 As FileInfo, ByRef info2 As FileInfo)
    With info1
        .fileName = "test.xls"
        .shtName = "sheet1"
        .beginRow = 2
        .endColumn = 8
    End With

    With info2
        .fileName = "test2.xls"
        .shtName = "sheet2"
        .beginRow = 2
        .endColumn = 10
    End With
End Function

Dim info1 As FileInfo,info2 As FileInfo
Sub Main()
    Call SetType(info1,info2)
End Sub

Microsoftからの警告
　レジストリ エディタの使い方を誤ると、深刻な問題が発生することがあります。
　最悪の場合、オペレーティング システムの再インストールが必要になることがあります。
　マイクロソフトは、レジストリ エディタの誤用により発生した問題に関しては、一切責任を負わないものとします。
　レジストリ エディタは、自己の責任においてご使用ください。
　へなちょこも責任取れません。

\HKEY_CURRENT_USER\Software\Microsoft\Office\ 16.0 \Excel\Options

Private Sub Workbook_Open()
　UserForm1.Show vbModeless
End Sub

Private Sub UserForm_Initialize()
　Cbox1.ControlSource = "Sheet1!A1"
End Sub

range.Errors.Item(引数).Ignore = Boolean

Sub test()
　With Range("A1").Validation
　　 .Delete
.Add Type:=xlValidateList , _
　　 Operator:=xlEqual, _
　　 Formula1:=strFormula
　 End With
End Sub

・シートの保護がかかっている
・すでに設定されている
・シートがActiveになっていない
・Formulaの式中のシート名が存在しない

If Application.ReferenceStyle = xlR1C1 Then
　Application.ReferenceStyle = xlA1
End If

・シートの保護がかかっている
・すでに設定されている
・シートがActiveになっていない
・Formulaの式中のシート名が存在しない
・ Formulaと、現在のExcelの参照形式が異なっている

Microsoftからの警告
　レジストリ エディタの使い方を誤ると、深刻な問題が発生することがあります。
　最悪の場合、オペレーティング システムの再インストールが必要になることがあります。
　マイクロソフトは、レジストリ エディタの誤用により発生した問題に関しては、一切責任を負わないものとします。
　レジストリ エディタは、自己の責任においてご使用ください。

\HKEY_CURRENT_USER\Software\Microsoft\Office\ 14.0 \Excel\Options

【現象】
ワークブックが非表示になっているマクロを含んだ Excel ファイルが、XLSTART フォルダーに置かれている場合、前回終了時にウィンドウが最大化されていた場合でも、Microsoft Excel 2010 が最大化されたウィンドウ サイズで起動しません。

たとえば、個人用マクロ記録ブック (PERSONAL.XLSB) を使っている場合や、XLSTART フォルダーに Excel アドインを置いている場合に、この現象が発生します。

なお、この現象が発生した際は、XLSTART フォルダーにある、他のファイル (Book.xltx などの新規ワークブックのテンプレートとして利用するファイル) が読み込めない場合があります。

<button id="Button001" imageMso="HappyFace" label="VBE&#xD;&#xA; " size="large" onAction idMso="VisualBasic" />

onAction="idMso="VisualBasic"
command idMso="VisualBasic"

<button idMso="VisualBasic" />

<button idMso="VisualBasic" size="large" imageMso="HappyFace" label="VBE"/>

<button idMso="ControlsGallery" size="large" />
<button idMso="DesignMode" />

<gallery idMso="ControlsGallery" size="large" />

< Control Type idMso=" Control Name " />

<tab id="CustomTab1" insertBeforeMso ="TabHome" label="test">

<tabs>
    < tab idMso="TabHome" >
        <group id="customGroup" insertBeforeMso="GroupClipboard" label="test">
            <button id="customButton" label="test" imageMso="HappyFace" size="large" onAction="test" />
        </group>
    </tab>
</tabs>

wb.SaveAs Filename:=FileName, FileFormat:=xlWorkbookNormal

実行時エラー '1004':
'SaveAs' メソッドは失敗しました: '_Worksheet' オブジェクト

wb.SaveAs Filename:=FileName, FileFormat:= 1

wb.SaveAs Filename:=FileName, FileFormat:= xlWorkbookDefault

Excelのオプション>保存>ブックの保存のファイルの保存形式

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Relationships xmlns=" http://schemas.openxmlformats.org/package/2006/relationships"><Relationship Id="rId3" Type=" http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties" Target="docProps/app.xml"/><Relationship Id="customUIRelID" Type=" http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml"/><Relationship Id="rId2" Type=" http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties" Target="docProps/core.xml"/><Relationship Id="rId1" Type=" http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument" Target="xl/workbook.xml"/></Relationships>

<?xml version="1.0" encoding="Shift_JIS" ?>
<customUI xmlns=" ">http://schemas.microsoft.com/office/2006/01/customui">
<ribbon>
<tabs>
<tab id="CustomTab1" label="ラベル">
<group id="Group10" label="">
<button id="Button101" imageMso="" label="" size="large" onAction="" supertip=""/>
<button id="Button102" imageMso="" label="" size="large" onAction="" supertip=""/>
<button id="Button103" imageMso="" label="" size="large" onAction="" supertip=""/>
</group >

<group id="Group11" label="">
<button id="Button111" imageMso="" label="" size="large" onAction="" supertip=""/>
<button id="Button112" imageMso="" label="" size="large" onAction="" supertip=""/>
</group >
</tab>
</tabs>
</ribbon>
</customUI>

 

With Application
.ScreenUpdating = False
.DisplayAlerts = False
.StatusBar = "処理中・・・"
End With
　　・
　　・
　　・
targetFile = Dir(targetPath & "\*.xls*")
　　・
　　・
　　・
Do While targetFile <> "" And InStr(targetFile, "~$") = 0
 DoEvents 

Application.StatusBar = targetFile & " 処理中・・・"

 

 

With Application
.ScreenUpdating = False
.DisplayAlerts = False
.StatusBar = "処理中・・・"
End With
　　・
　　・
　　・
targetFile = Dir(targetPath & "\*.xls*")
　　・
　　・
　　・
Do While targetFile <> "" And InStr(targetFile, "~$") = 0
DoEvents
 ThisWorkbook.Activate 

Application.StatusBar = targetFile & " 処理中・・・"

 

 
Sub PasteOnlyValues()
On Error Resume Next
Selection.PasteSpecial xlPasteValues
End Sub
 

 
Private Sub Workbook_Open()
Application.OnKey "+^v", "PasteOnlyValues"
End Sub
 

キー

コード

Shift

+ (正符号)

Ctrl

^ (カレット)

Alt

% (パーセント記号)

一般キー

キー	コード
BackSpace	{BACKSPACE} または {BS}
Break	{BREAK}
CapsLock	{CAPSLOCK}
Clear	{CLEAR}
Delete または Del	{DELETE} または {DEL}
↓	{DOWN}
End	{END}
Enter (テンキー)	{ENTER}
Enter	~ (チルダ)
Esc	{ ESCAPE} または {ESC}
Help	{HELP}
Home	{HOME}
Ins	{INSERT}
←	{LEFT}
NumLock	{NUMLOCK}
PageDown	{PGDN}
PageUp	{PGUP}
Return	{RETURN}
→	{RIGHT}
ScrollLock	{SCROLLLOCK}
Tab	{TAB}
↑	{UP}
F1 〜 F15	{F1} 〜 {F15}

すみません。
へなちょこはhtml初心者です。
表もキレイ書けないし、Syntax HighLightも入れ方わかりません。
見ずらくってほんとにすみません。
いつか、コードをカラーリングしたいなぁ・・・。

タグ： ExceVBA

posted by へなちょこ at 06:00 | Comment(0) | TrackBack(0) | Excel VBA