アプリ提出の手順のメモ書き １、必要なもの 提出用のアプリ アプリのスクリーンショット 512×512のアイコンファイル アプリの説明文（海外で売るなら英語のも） ディストリビューション用のプロビジョニング２、info.plistの設定Bundle display name ＝ ア…

B列に値が入っていない行をまとめて削除する Sub delete_row() Dim i As Integer For i = 4 To 200 'とりあえず200行までループ If Cells(i, 2).Value = "" Then Rows(i & ":" & i).Delete End If Next i End Sub セルにセットされているハイパーリンクを隣…

AppBankさんに紹介されました！！ http://www.appbank.net/2010/11/18/iphone-application/187393.php この「Cajon_mini」は、南米生まれの箱型のパーカッション「カホン」を再現したアプリです。 タップする場所によって音色が変わるので、小型のドラムセッ…

コピペすれば使えるモジュールをがちゃがちゃと作っているんですが、そのうちのひとつとしてエクセルに出力する汎用モジュールの公開。 Excelオブジェクトなどの参照設定は一切不要です。引数としてSQL,ファイルのフルパス、オートフィルタのONをTrueかfalse…

まだAccessでマッチョにコードを書き始める前は Accessでファイル入出力ダイアログを呼ぶときに、microsoftOfficeやExcelのオブジェクトを参照設定して呼び出しいました。だけれど、それだとOfficeのバージョンが開発環境と異なる場合にエラーになっちゃうん…

SQLとパスを渡してエクセルへ出力する関数。 オートフィルターもパラメーターにて設定可能。 transferspledsheetが嫌いな人はコピペして使ってください。 Function ex_output(SQL As String, file_name As String, A_fil As Boolean) 'ＳＱＬをエクセルに出…

おいおい、下の二つの式で結果が違うぞ！！ CLng(nz(6798000,0)/10000)+IIf(nz(6798000,0) Mod 10000>0,1,0))*10000 int(nz(6798000,0)/10000)+IIf(nz(6798000,0) Mod 10000>0,1,0))*10000 試しにイミディエイトウインドウで実験したらこんな結果に！ int(nz…