Ver5.0のリリース有難うございます。

64bitでも使用出来ました。

今後のVerUpに期待します。

以上

返信する

エクセル64bit版、かんたんレイアウトのアドイン起動後、
下記のエラーが発生します。

「非表示モジュール内でコンパイル エラーが発生しました。
通常このエラーは、コードがこのアプリケーションのバージョン、
プラットフ～」

エラーが発生しない修正版のアドイン提供はないでしょうか？
もしくは、修正方法を教えてください。

以上

返信する

ご意見ありがとうございます。

GeneralTools.basの先頭部分のdllの宣言部をすべて
下記の例の様に修正すれば、動作すると思われます。
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
↓
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

LongをLongPtr型に変更する必要はないと思われます。
後、frmEditの以下の行はコメントアウトしてください。

Private Sub UserForm_Initialize()の中の
' '********************************************
' 'サブクラス化してマウスホイールを有効にする
' '********************************************
' OrgWndProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf SubClassProc)


Private Sub UserForm_Terminate()の中の
' 'ウィンドウプロシジャーを元にもどす
' If OrgWndProc <> 0 Then
' Call SetWindowLong(hWnd, GWL_WNDPROC, OrgWndProc)
' End If

返信する

初めての投稿です。

かんたんレイアウトがとても便利な為、
よく使わさせて頂いています。

現在、Officeを2007から365へ入れ替えを進めており、
その中でかんたんレイアウトの動作確認を行っておりました。

OfficeのバージョンはOffice365Business版です。

32bit版は他の方への対応で書かれていたソースで、
アドインの表示と運用が出来ました。

ですが、64bit版はエラーが出て、
表示もされす動作しません。

幾つかのサイトで64bit版はLong変数が変わるのと、
Declare ステートメントが変わると言う事で、
Longは全てLongPtrに変更し、
Declare ステートメントはPtrSafeを追加して、
暫定でエラーの出ない形にはしましたが、
動作しませんでした。

おそらく、Declare ステートメントの一部が対応していないと推定しましたが、どこが対応していないかまでは追いきれませんでした。

そこで、相談なのですが、
・64bit対応は今後されるのか？
・どの辺りで動作がしなくなるかの推定箇所が無いか
の回答をいただけると幸いです。

将来的に、Microsoftが64bit版のOfficeに移行していく可能性があるので、出来れば対応頂ければと思います。

以上、宜しくお願い致します。

返信する

無事，正常にアドインタブに表示されるようになりました。
ありがとうございました。

返信する

かんたんレイアウトのソースを開き(パスワードは3)
ThisWorkbookの中のWorkbook_Openモジュールを以下の内容に
書き換えれば、対処可能のはずです。

以下Workbook_Openモジュール

Private Sub Workbook_Open()
Dim strMsg As String
Dim i As Long

Application.CommandBars("かんたんレイアウトアイコン").Enabled = False

If blnIsAddin = True Then
Call Application.OnKey("+{F2}", "OpenEdit")
Call Application.OnKey("+^{c}", "CopyText")
Call Application.OnKey("+^{v}", "PasteText")
Exit Sub
End If

'ＰＣによってはアイコンが表示されないことがあるため
Call Sleep(1000)

'かんたんレイアウトのインストール
Call InstToolBar
'かんたんレイアウト2のインストール
Call InstTool2Bar

Application.CommandBars("かんたんレイアウト").Enabled = True
Application.CommandBars("かんたんレイアウト2").Enabled = True
Application.CommandBars("かんたんレイアウトアイコン").Enabled = False

For i = 1 To AddIns.Count
If UCase(AddIns(i).Name) = UCase("EasyLout.xla") Then
If AddIns(i).Installed = True Then
Call Application.OnKey("+{F2}", "OpenEdit")
Call Application.OnKey("+^{c}", "CopyText")
Call Application.OnKey("+^{v}", "PasteText")
Exit Sub
End If
End If
Next i

strMsg = "このファイルを開くことは出来ません。" & vbCrLf
strMsg = strMsg & "アドインに登録して使用して下さい。" & vbCrLf & vbCrLf
strMsg = strMsg & "登録方法はヘルプファイルをご覧下さい。"
Call MsgBox(strMsg, vbExclamation, ThisWorkbook.Name)
Call ThisWorkbook.Close
End Sub

返信する

ご返答いただき，ありがとうございます。
できれば「かんたんレイアウト」の方で対策していただけると助かります。
よろしくお願いいたします。

返信する

ご質問の件ですが、excel2013以降の仕様と思われます。
以下のサイトに同事象が報告されています。
https://answers.microsoft.com/ja-jp/msoffice/forum/msoffice_excel-mso_windows8/excel/c90a9b9b-6fe9-4406-bbb6-1fa7f7618617

対処方法については現在検討中です。

返信する

Excel2016(64bit)で使用しています。
EasyLout.xlaとヘルプは
C:\Users\○○○\AppData\Roaming\Microsoft\AddIns
に入れてあります。
Excelを起動し，開発→Excelアドインと進むと，かんたんレイアウトが表示されるので，チェックマークを入れます。
すると，アドインタブが表示され，かんたんレイアウトが使えます。
しかし，一端，Excelを終了し，起動させると，アドインタブが消えてしまいます。開発→Excelアドインでは，かんたんレイアウトにチェックマークが入ったままです。
とりあえずの回避方法としては，かんたんレイアウトのチェックをはずしてからExcelの再起動をし，再度かんたんレイアウトのチェックを入れると正常にアドインタブに表示されます。
解決方法がありましたら教えてください。

返信する

テスト２

返信する

テスト

返信する

返信テスト

返信する

投稿テスト
2016/9/19

返信する

Nydelige bilder. Koselig med hund - jeg låner naboens... Dompappen har ikke kommet til fuglebrettet ennå, men det er jo snøfritt og ikke jul ennå!

返信する

By November 15, 2012 - 11:04 amBuenos días,dos socios tenemos una scp al 50%, uno trabajador y el otro capitalista; queremos hacer un cambio; el que era trabajador, dejar de serlo, y el que hasta ahora era capitalista, pasar a ser el trabajador; mi compañero ya se ha dado de alta en los autónomos; que mas tenemos que hacer? se tiene que modificar el contrato e ir a hacienda de nuevo? se tiene que hacer algo con el modelo 036? gracias

返信する

Wow, vielen Dank, das ist ein wirklich tolles Feedback! Hehe, habe den Kaffee-Café Verdreher gerade doch korrigiert, obwohl ich es auch sehr lustig fand, vor allem bildlich vorgestellt. Das würde dann wohl ungefähr so aussehen: ;) Viele Grüße, Ellen

返信する

Rappelons que de l&rsquo;autre coté en Cijordanie, avec un régime palestinien qui collaborent avec l&rsquo;occupant, la colonisation est en constante augmentation, et l&rsquo;entité sioniste bloque souvent les taxes dû à l&rsquo;autorité palestinienne. Comme quoi, que vous résistez ou pas, on vous prendra votre terre, car nous sommes le peuple élu.

返信する

11fI really love your site.. Great colors &amp; theme. Did you develop this web site yourself? Please reply back as I’m planning to create my very own site and would love to learn where you got this from or exactly what the theme is named. Cheers!

返信する

Como seres humanos queremos tener una vida donde no hayan necesidades: materiales, espirituales, emocionales, etc. Pero nuestra misma naturaleza humana nos impide llegar a eso, cuando existe tanta desigualdad social. Sin embargo, dentro de nuestras limitaciones debemos luchar por tener bienestar individual y buscar siempre la justicia social. Dios es un Padre bueno y cubre siempre nuestras necesidades, no nuestros deseos. Además todo lo que El quiere para nosotros no está en este mundo, sino en su Reino.Saludos

返信する

Antoine .Bonjour . On peut toujours se dire Catholique . Ce qui est plus difficile à faire ou à démontrer , et surtout à accepter c&rsquo;est AVOIR LA FOI . Accepter parcequ&rsquo;elle est un DON donné par Dieu .C&rsquo;est pour cela que Benoît XVI a décrété Cette Année Liturgique : l&rsquo;Année de la FOI ;La foi c&rsquo;est adhérer à ce que l&rsquo;on croit , dans son coeur , pour mieux être témoin du Christ ( qui se réfère toujours au Christ ) dans notre façon de vivre et de penser .

返信する