[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
もうほとんどブログではなくオンラインメモ帳として機能しているオイラのブログ。
今日もまたメモ書きです。
行選択
rows("4:4").select ４行を選択
rows("1:4").select 1~4行を選択
列選択
columns("C:C").select C列を選択
columns("A:C).select A~C列を選択
変数使ってセルの選択
Dim retu1 As Integer
Dim gyou1 As Integer
Cells(retu1,gyou1).Selet
選択したセルから数値分離れたセルを選択
ActiveCell.offset(3,5).Range("a1").Select
アクティブのセルからカーソルキーを下に３回右に６回押した位置
sumifを変数を入れて使ってみる
Dim hensu1 As Integer
Dim hensu2 As Integer
Dim hensu3 As Integer
Dim hensu4 As Integer
ActiveCell.FormulaR1C1=
"=SUMIF(R[" & hensu1 & "]C[-2]:R[" & hensu2 & "]C[-2],""名前"",R[ " & hensu3 & "]C[-3])"
ダブルクォーテーションで囲まれた範囲は文字列として認識される。＆を使い文字列結合して式を完成させる。
上記のSUMIFの場合
ActiveCell.FormulaR1C1= (アクティブセルに式を入れる(.Formula))
"=SUMIF(R[" 【文字列】
&
hensu1
&
"]C[-2]:R[" 【文字列】
&
hensu2
&
"]C[-2]," 【文字列】
"名前" 【文字列】
",R[ " 【文字列】
&
hensu3
&
"]C[-3])" 【文字列】
となる。
あれ、文字列文字列文字列があるが。
とりあえずは変数は文字列として代入すると計算されないので
””の外に書けば動く。
すげー。学生さんらしいけどすげえ。
勉強用にブックマーク代わりにメモメモ
近視って屈折異常なわけで、それが栄養とって治るわけがない。
ましてや精神的な作用で直るわけがない。
こんなサイト＆本を見つけた。
近視は治る―心と視力のメカニズム
http://gaidai.blog.so-net.ne.jp/2008-07-18
確かに、精神的に不安定な年代に、視力も不安定になることがある。
ただそれは眼科医ならば治療の方法も持っているものだ。
仮性近視・調節緊張性近視ってやつ。
この場合は薬で調節力を抑えてやれば見ることができるし、その原因さえつかめれば薬さえ不要になる。
現実的なのはこの辺
トレーニングは別として。
http://www.lasik-infomation.com/index.php
屈折異常の屈折を正しい屈折にするために物理的なアプローチをすること以外に、解決方法があることが疑わしい。
虫眼鏡で黒い紙を焼いたことがあればそれをイメージしてほしい。
人の目も光が点になることでものを見ることができるようになる。
虫眼鏡が近すぎたり遠すぎたりするとぼやけてしまう。
ついでだけど、虫眼鏡が遠けりゃ近視。近けりゃ遠視とおなじ屈折状態になる。
体の変化を求めるとすれば、眼球を小さくすることで近視は治るだろう。
でも小さくするって…どうやって？
こういう情報って「売ってる」のが腹立たしい。
公表すればそれが嘘だろうが本当だろうが損する人は出ないわけで。
「効果には個人差があります」ってきっと書いてあるんだろうけど、そのトレーニングの効果でなくても、上記の屈折異常以外のものであったがために回復したケースも含めて、1万人に1人治れば治ったと言える。
その残りの人は個人差だともいえるだろう。治らないちょっと良くなった気がする。これも含めて。
ありがちなのがぼやけた状態でも視力表を読み取り慣れてしまうってこと。
ぼやけて入るけどあいてるところはわかるという程度が向上すれば視力検査の結果は上がるだろう。
知識がないことで損する人がいるってのが歯がゆいなぁと思い書いてみた。
