風のめも

kaze88.exblog.jp

奈良・戒那山麓に

今回紹介する『男のパスタ道』は、「スパゲッティ・アーリオ・オーリオ・エ・ペペロンチーノ」、通称「ペペロンチーノ」について書かれた、ちょっと風変わりな本である。ペペロンチーノは、にんにくと赤唐辛子...
これは読みたいかも^^004.gif004.gif
記事中に
>オリーブオイルの芳香成分は揮発性が高いため、加熱すれば失われる。その一方、酸化だけは進むから、深いな味や臭気、ベタつきが発生する。苦み・辛み成分は加熱によっても失われることがないので、前と変わらず、トータルで見ると、加熱したときのほうがまずい、という展開になる。
とあるから パスタの炒めるときには使わず出来上がってからかけるんだろうな と
[PR]
# by kazepapa | 2014-07-31 18:03 | 雑感 | Trackback | Comments(0)

AppStoreのアプリアイコンが消えた

気がついたら「あれ?AppStoreのアイコンが無い・・・」「新しいアプリをインストール出来ない」って困ったことありますか?

今回の記事はAppStoreのアプリだけではなく、iTunesなどの標準アプリがiPhoneの画面に表示されていないという人向けです。

SafariやYouTube、FaceTimeなどのアップルの純正アプリが表示できなくて困ったという人は対象です。

すべてのアイコンが無いとか、すべてのアプリが起動しないという人は別の問題ですので、本記事最後にある関連記事の方を御覧ください。
諦めて復元処理をかける前に、一度「機能制限がオフになっていないか」チェックしてみてください。


上記のように、設定 > 一般 >機能制限 とチェックしてみてください


上記の画面になっていたらAppStoreのアイコンがiPhoneの画面上から消えているはずです。

「機能制限を解除」をタップして「オン」に戻してください。 この際、パスコードの入力を求められます。
th_IMG_8594









設定の一般をタップ
th_IMG_8588

Spotlight検索をタップ
th_IMG_8589

Appをタップしてチェックを入れる
th_IMG_8590

ホーム画面で上から下に小さくスワイプし、Spotlight検索を起動。
App Storeと入力する事で、AppStoreが置かれている場所がわかります。
th_IMG_8591













More
[PR]
# by kazepapa | 2014-06-11 07:26 | ネット&ツール | Trackback | Comments(0)
真崎、永島、谷口、星野、樹村の5人の漫画家の作品は 
持ってないものや、読んでないもがあれば即購入しちゃうだろうから除外! 

マンガショップの価格がほぼ1890¥なので
その価格でも購入して読みたいってのは

桑田次郎 ガロロQ
当時 1,2話しかよんでないので 最後まで読んでみたいって意味で!
もし購入して 読んだら失望する可能性高し

石川球太:牙王ほかの動物漫画
マンガショップに結構あるんだよな 原人ビビとかw いまも購入したいって欲求がチラチラ

宮谷一彦:「カラス 柿の実 わたぼうし」等の短編集
これは 他になにが収録されるかによるなあ

寺田ヒロオ:暗闇五段
当時連載が 変な打ち切り方されたもんで きっちり全部読んでみたい。寺田ヒロオのたぶんメジャー最後の連載作品だとおもう

白土三平:シートン動物記(石川のシートンもあったような?
これは 白戸、石川、谷口の三人のシートンものを見比べてみたいってことだけ


1000¥程度までなら 読んでみたいってのは
桑田次郎:まぼろし城
桑田の忍者ものチャンバラ物の数少ない作品だから!超犬リープなんかは持ってるんだが8マン以降のものがみたいな

永田竹丸:アップルくん
小1か小2あたりにみてた漫画なのだ。永田竹丸の作品なんて まず入手不可だろうし 単行本になったのをみたこともないから

藤子不二雄:エスパー摩美
これは 子供らが読んでぼろぼろになったのなら今もあるはずなんだが! シルバークロスとかも読んでは見たいけど 藤子作品なら ドラえもんよりは こっちのほうがいい

小沢さとる:サブマリン707
青の6号でも 丹下左膳でもなんでもいいんだが 小沢作品はみてみたい

益子かつみ:怪球Xあらわる
この作品は 子供心に強烈な印象があったんで みれるのならってことで

関屋ひさし:ストップにいちゃん
寺田ヒロオ:背番号0
この二作品は ほんとに懐かしむって意味だけになるかな?でも児童漫画としてはこの二作品はいい

堀江卓:矢車等のチャンバラものどれか一冊
矢車、天馬のころの一大活劇風のコマ展開を楽しめればいい

手塚治虫:フライングベン (Amazonで1000¥以下で入手可能でしょう この辺は
数ある手塚作品で何が好きかと言われたら あちきはこのベンと 「鳩よ天まで」 それと キリヒト賛歌や 「安達が原」あたりの少し暗い作品を選ぶ!
代表作といわれるアトムにしろ 火の鳥にしろ 決して明るい作品ではないのだが


2000¥以上でもいいから復刻してほしいのや 
短編集をくんでほしいのはあるんだが

坂口尚のCOM掲載時の作品集とか
青柳祐介の遺作に近い川歌とか
池上遼一のスパイダーマンを全二冊くらいに w
[PR]
# by kazepapa | 2014-03-02 00:16 | 雑感 | Trackback | Comments(0)
簡易的に 読み込みだけならこうか!
Sub Sample2()
Dim buf As String
Open "C:\Data\Sample.csv" For Input As #1
Do Until EOF(1)
Line Input #1, buf
''読み込んだデータをセルに代入する
Loop
Close #1
End Sub


目的位置(記入最終行後)へのセルコピーが これか!
Public Sub AddNewData()

'既定のデータのフォーマットを追加する

Range("J3:P3").Select

Selection.Copy Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Offset(1)

Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Select

'============================================================
' Excel2003以前のバージョンでのみ使用する場合

' Selection.Copy Range("B65536").End(xlUp).Offset(1)
' Range("B65536").End(xlUp).Select
'============================================================

End Sub

シート1の(A1)にデジカメと表記があり、同じ行のB~Hの列にそれぞれの数字が入っていたとします。

それをシート2のA列の適当な行(例えばA15)にデジカメという表記があった場合に、シート1の(B1)~(H1)の値をシート2の(B15)~(H15)にコピーする方法をご存じな方、教えて下さい。

単純なコピー&ペーストは「マクロの記録」で可能かと思いますが、シート2に「デジカメ」の項目があった場合に、シート1の元データから同じ「デジカメ」の項目を探しだし、コピーしたいのです。


Sub Test()
 Dim R As Long
 Dim myCell As Range

 Sheets("Sheet2").Select

 For R = 2 To Cells(Rows.Count, "A").End(xlUp).Row
  Set myCell = Sheets("Sheet1").Range("A:A").Find(Cells(R, "A").Value, , xlValues, xlWhole)
  If Not myCell Is Nothing Then
    myCell.Resize(1, 9).Copy Cells(R, "A")
  End If
 Next R
End Sub

[PR]
# by kazepapa | 2014-02-06 10:46 | ネット&ツール | Trackback | Comments(0)
ちょい メモ!
CSVファイルを読み込む
http://www.moug.net/tech/exvba/0060086.html

CSVファイルの行数を取得する
http://www.moug.net/tech/exvba/0060083.html

ブックのオープンと自動実行マクロ
http://www.moug.net/tech/exvba/0060077.html

CSVのデータ出力でヴァリアント型とした場合、元データと異なる結果は、文字列型に変換して出力する
http://www.moug.net/tech/exvba/0060026.html

ファイルのパスについて
http://www.moug.net/tech/exvba/0060036.html
ファイルのパスについて
(Excel 97/2000)
エクセルファイルやその他Officeのファイル、あるいはテキストファイルなど、Windowsではさまざまなファイルが扱われますが、ファイルの存在する位置を表すのが”パス”です。

例えば、エクセルVBAでは・・・

Application.Path(エクセル本体のパス)
ThisWorkbook.Path(コードが記述されたブックのパス)(フルパスでないのなら 相対??)
ThisWorkBook.FullName(コードが記述されたブックのフルパス)
などがよく使われます。

エクセルファイル以外でもこのようなパスを扱う場面はVBAでテキストを扱ったり、他のシステムとの連動を図る場合などは必須項目となりますが、以下ではファイルのパスの扱い方のいろいろな方法をご紹介します。
'1.Dir関数

'ReturnValue = Dir 対象ファイルフルパス

Dim RetVal As String
RetVal = Dir("C:\Windows\Calc.exe")
'⇒ 返り値は"Calc.exe" ファイルが存在しない場合は空白
'2.Split関数でファイル名を操作(XL2000のみ)

Dim Var As Variant
Var = ThisWorkbook.FullName
Var = Split(Var, "\") '\マークを区切り文字にして配列化
MsgBox Var(UBound(Var)) '配列の上限(ここでは拡張子を含むファイル名)
'3.InStr、InstrRev関数

Dim FName As String
Dim Pos As Integer
FName = ThisWorkbook.FullName
Pos = InStrRev(FName, "\") 'フルパスの後ろから\マークの位置を検索
MsgBox Mid(FName, Pos + 1) '拡張子を含むファイル名を取得
'4.WindowsScriptingHost(WSH)

Dim FNam As String
Dim Ret As String
Dim Fso As Object

FNam = ThisWorkbook.FullName

Set Fso = CreateObject("Scripting.FileSystemObject")
Ret = Fso.GetBaseName(FNam) 'ベース名(拡張子を除くファイル名)を取得
MsgBox Ret
※このほかWSHのFileSystemObjectにはファイル、パス関連のさまざまなメソ
 ッド等があります。
 GetExtensionName(Path)・・・拡張子の取得
 GetAbsolutePathName(ファイル名)・・・絶対パスの取得
        (ファイルは存在してなくてもOK。ファイル名のみの
        指定ではカレントディレクトリのパス+ファイル名となる)
GetParentFolderName(Path)・・・ファイルが存在するフォルダのパス取得
 など。


テキストファイルの内容を取得する
http://www.moug.net/tech/exvba/0060057.html
テキストファイルの内容を取得する
(Excel 2000/2002/2003)
●概要●
FileSystemObject(以下、FSO)のOpenTextFileメソッドを利用して、テキストファイルの内容を取得することができます。OpenTextFileメソッドの戻り値は、ファイルを読み書きするためのTextStreamオブジェクトへの参照です。このTextStreamオブジェクトのReadAllメソッドを利用してファイルの内容を取得します。

 構文 OpenTextFile ファイル名
 設定項目    内容
 ファイル名   ファイル名をフルパスで指定


次のサンプルは、FSOのOpenTextFileメソッドを利用して、作業中のブックと同じフォルダにある「Sample.txt」ファイルを開き、ReadAllメソッドを利用して取得した内容をイミディエイトウィンドウに表示します。
なお、このサンプルを実行するには、「Windows Script Host Object Model」への参照設定が必要です。

●サンプル●

Sub Sample()
Dim FileName As String
Dim TempData As String

FileName = ThisWorkbook.Path & Application.PathSeparator & "Sample.txt"

With New IWshRuntimeLibrary.FileSystemObject
With .OpenTextFile(FileName)
TempData = .ReadAll
.Close
End With
End With

Debug.Print TempData
End Sub



Excel VBA:ファイル操作関連のテクニック
http://www.moug.net/tech/exvba/0062.html


第14回 目的の位置にセルをコピーしてみよう 1/4
http://www.moug.net/vba/beginners/exvba014-1.html
[PR]
# by kazepapa | 2014-01-31 08:08 | ネット&ツール | Trackback | Comments(0)
http://edieelee.tumblr.com/post/68863176744


さすが筒井先生!
[PR]
# by kazepapa | 2013-12-03 16:41 | 雑感 | Trackback | Comments(0)
神々の山嶺: 読んだ! 小説の方も面白かったが、これは 谷口ジローの漫画のほうがすごいとおもった。

金枝篇:岩波だったかの文庫本があるんだが 確か一巻よんだけ・・・・ 何も残っていない;;;;

数学の想像力: 正しさの深層に何があるのか (筑摩選書) : この辺りはよんでみたい

http://dain.cocolog-nifty.com/myblog/2013/12/2013-4e5a.html

[PR]
# by kazepapa | 2013-12-03 15:42 | 雑感 | Trackback | Comments(0)
FBの埋め込み投稿しけん! 牧さんの書込み借りちゃった 無断ですw
(function(d, s, id) { var js, fjs = d.getElementsByTagName(s)[0]; if (d.getElementById(id)) return; js = d.createElement(s); js.id = id; js.src = "//connect.facebook.net/ja_JP/all.js#xfbml=1"; fjs.parentNode.insertBefore(js, fjs); }(document, 'script', 'facebook-jssdk'));

[PR]
# by kazepapa | 2013-08-22 12:31 | ネット&ツール | Trackback | Comments(1)
このサイト、URLをエキサイトマイリンクに登録する ブログトップ